Forward Appointment as BCC with VBScript

Status
Not open for further replies.

mathiasd

Member
Outlook version
Outlook 2016 32 bit
Email Account
IMAP
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
 

mathiasd

Member
Outlook version
Outlook 2016 32 bit
Email Account
IMAP
many thanks for your fast reply Diana :)

Is this sequence ok?

If TypeOf Item Is Outlook.AppointmentItem Then
Set Appt = Item
Appt.Recipients.Add "xxxx@yyyyyy.zz"
Appt.Recipients.Type = olBCC
Appt.MeetingStatus = olMeeting
Appt.Save
Appt.Send
End If


..or should it be the other way around?

If TypeOf Item Is Outlook.AppointmentItem Then
Set Appt = Item
Appt.Recipients.Type = olBCC
Appt.Recipients.Add "xxxx@yyyyyy.zz"
Appt.MeetingStatus = olMeeting
Appt.Save
Appt.Send
End If


I really appreciate your help!

Thanks
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
thisi s the correct order -
Code:
Appt.Recipients.Add "xxxx@yyyyyy.zz"
Appt.Recipients.Type = olBCC
 

mathiasd

Member
Outlook version
Outlook 2016 32 bit
Email Account
IMAP
Run-time error '438': Object doesn't support this property or method

Guess .Type is not available for Outlook.AppointmentItem
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
A small change does it. You cannot set the type for all recipients at once but have to do it for each single recipient.
Code:
dim r as recipient
set r=Appt.Recipients.Add ("xxxx@yyyyyy.zz")
r.Type = olBCC
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
J Outlook 2010: can't forward appointment on custom form Using Outlook 1
C UDFs Reply vs Forward Outlook VBA and Custom Forms 2
M In Outlook Calendar remove the buttons: 'Today' and '<' (Back a day) and '>' (Forward a day) that are below the Ribbon and above the calendar display. Using Outlook 0
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
C How to rename subject line and forward the email Outlook VBA and Custom Forms 2
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
G Missing forward/replied icons Using Outlook 2
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
B Automatically Forward Emails and Remove/Replace All or Part of Body Outlook VBA and Custom Forms 8
B Forward every other email in Outlook 2013 Outlook VBA and Custom Forms 2
D Disable or hide "reply" and "reply to all" and "forward" in email from access vba Outlook VBA and Custom Forms 1
Sabastian Samuel HOW DO I FORWARD AN EMAIL WITH MACRO using an email that in the body of another email Outlook VBA and Custom Forms 3
C Don't forward duplicate Using Outlook 0
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
A Forward Outlook Email by Filtering using Macro Rule Outlook VBA and Custom Forms 44
I change subject and forward without FW: Outlook VBA and Custom Forms 4
C VBA to Forward e-mails from certain address and between certain times Outlook VBA and Custom Forms 1
J Forward Action in Form Outlook VBA and Custom Forms 1
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
K add pdf to every reply or forward Outlook VBA and Custom Forms 1
Brostin Forward a mail to the address listed in the email text Outlook VBA and Custom Forms 1
N Going Forward: Using Outlook 2016 for RSS Feeds Using Outlook 2
J Forward Message after editing attachments and include edited attachments Using Outlook 5
R changing FW: on forward Outlook VBA and Custom Forms 3
Z Auto Forward Using Outlook 4
N Outlook script to forward emails based on senders' address Outlook VBA and Custom Forms 2
S Merge Emails with attachments with inbox rule to forward Using Outlook 5
B Auto Save of Attachments from Multiple Emails and forward attachments to user group Outlook VBA and Custom Forms 1
A Creating an outlook rule to forward an email with a specific message Using Outlook 1
D Forward message to address from subject Outlook VBA and Custom Forms 1
D How to forward each email x minutes after it arrives in inbox and hasn't been moved or deleted? Using Outlook 1
W Macro to forward email Outlook VBA and Custom Forms 2
J How to change From then forward message Outlook VBA and Custom Forms 1
S Reply & Forward Date in original message incorrect Using Outlook 2
Diane Poremsky Forward Messages that were not Replied To New Slipstick.com Articles 0
mikecox Forward email to another address; not with Rules Using Outlook 3
divan Macro to format email in a certain folder then forward to email address Using Outlook 3
D forward email with attachment using .oft Using Outlook 3
J Forward a bounce mail? Using Outlook 1
P How to save sent mail and forward it the next day Exchange Server Administration 3
T outlook 2013 does not mark multiple forward messages as forward Using Outlook 2
D Forward Only an Attachment Using Outlook 1
G Capture "forward event" ? Outlook VBA and Custom Forms 11
R Auto-create receipt from email and forward to payer Using Outlook 3
L Auto Forward without presenting the original sender Outlook VBA and Custom Forms 1
C Unable to forward email with URL Using Outlook 2
C Button to Forward and Move Using Outlook 4
A Reply/Forward Emails using Mail Merge BCM (Business Contact Manager) 0
Similar threads


















































Top