Hi,
i am pretty new with VBA and I have the following requirement.
I want to forward every incoming appointment to a BCC receiver.
I just used this example which sends every appointment to an email receiver - but not with BCC:
<----------->
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 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 "xxxx@yyyyyy.zz"
Appt.MeetingStatus = olMeeting
Appt.Save
Appt.Send
End If
End Sub
<----------->
Is there a way to modify the above coding in a way that the appointment will be send with blind copy (BCC)?
Many thanks in advance
i am pretty new with VBA and I have the following requirement.
I want to forward every incoming appointment to a BCC receiver.
I just used this example which sends every appointment to an email receiver - but not with BCC:
<----------->
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 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 "xxxx@yyyyyy.zz"
Appt.MeetingStatus = olMeeting
Appt.Save
Appt.Send
End If
End Sub
<----------->
Is there a way to modify the above coding in a way that the appointment will be send with blind copy (BCC)?
Many thanks in advance