Emailing from Access

[Simes2112]

I have a database where purchase orders are entered, PDFs are created and then emailed as attachments directly to the supplier. The code here works just fine ... BUT ...

'Email the results of the report generated
Set oApp = CreateObject("Outlook.Application")
Set oEmail = oApp.CreateItem(olMailItem)
With oEmail
    .Recipients.Add EmailAddress
    .Subject = "Purchase order from XYZ Company ref: " & SubjectPOnumber
    .Body = MessageText
    .Attachments.Add Filename
    .Send
End With

MsgBox "PO Email successfully sent!", vbInformation, "EMAIL STATUS"

... My question is this, I would like to be have more than one recipient which the additional ones being CC recipients and I can't work out how to do that. If I have to add them as TO recipients that is not the end of the world at all.

Any help / advice / guidance would be much appreciated.

Cheers,

Simes

 

[theDBguy]

Hi. One way is to specify the field in your email. For example:

.To = ToEmailAddressHere
.Cc = CcEmailAddressHere

Hope that helps...

 

[gemma-the-husky]

Can't you do recipients.add multiple times. Or make email address a string of email addresses. It must be something like that.

 

[theDBguy]

If you want to continue using the Recipients object, review the following documentation. You'll need to assign the correct Type to the object.

Recipient object (Outlook)

Office VBA reference topic

docs.microsoft.com

 

[Simes2112]

Hi. One way is to specify the field in your email. For example:

.To = ToEmailAddressHere
.Cc = CcEmailAddressHere

Hope that helps...

Tried that, but it didn't work. Do you have an example of how this would work?

 

[Simes2112]

Can't you do recipients.add multiple times. Or make email address a string of email addresses. It must be something like that.

Thanks Dave, this is what I decided to go with.

 

[Gasman]

You need to specify the type when you use .Add else I think it defaults to .To ?