|Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.|
This sample monitors your calendar, and every new appointment will also be sent by e-mail to a certain address. For that, the appointment must be flagged as a meeting item.
If you don't want to monitor the default calendar but a subfolder if it, then remove the apostrophe before the second Set Folder statement, and replace the name with the name of your subfolder.
Private WithEvents Items As Outlook.Items Private Sub Application_Startup() Dim Ns As Outlook.Namespace Dim Folder As Outlook.MapiFolder Set Ns = Application.GetNamespace("MAPI") Set Folder = Ns.GetDefaultFolder(olFolderCalendar) ' Set Folder = Folder.Folders("name of your subfolder") Set Items = Folder.Items End Sub Private Sub Items_ItemAdd(ByVal Item As Object) Dim Appt As Outlook.AppointmentItem If TypeOf Item Is Outlook.AppointmentItem Then Set Appt = Item Appt.Recipients.Add "email@example.com" Appt.MeetingStatus = olMeeting Appt.Save Appt.Send End If End Sub
|ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.|