Dear all,
i am using below auto-bcc macro. but then i started to need to send to 2 different mails in bcc, not only one. how can i add the second one? thank you.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim R As Outlook.Recipient
Dim Address$
Address = "[email protected]"
Set R = Item.Recipients.Add(Address)
R.Type = olBCC
R.Resolve
End Sub
Hi turkanet,
Try separating the addresses with a semi colon:
Lewis
Please Login or Register to view this content.
No it didnt work Lewis. i tried also Address = "[email protected]" & "[email protected]",
also tried Address = "[email protected]" & ";" & "[email protected]"
can you help to find me a way?
Hi,
The following code may work. I tested it in Outlook 2016, but Outlook is not my eMail of choice, so I have no address book.
Please Login or Register to view this content.
Unfo received attached msg
Try this.
Please Login or Register to view this content.
If posting code please use code tags, see here.
Thank you, works fine
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.
Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of all those who offered help.
Ali
Enthusiastic self-taught user of MS Excel who's always learning!
Don't forget to say "thank you" in your thread to anyone who has offered you help.
You can reward them by clicking on * Add Reputation below their user name on the left, if you wish.
Forum Rules (updated August 2023): please read them here.
Thank you for advices. I was already clicked that star.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks