Adjusting macro to send email

[zioneye]

For some reason this macro will send the workbook to Persons_Email_Addr
but not to Copy_To_Slay. What am I doing wrong?


Sub Email()
Dim Email_WB As Workbook
Dim Persons_Email_Addr As String
Dim Copy_To_Slay As String
Dim Email_Subj As String

On Error GoTo Email_Err
Set Email_WB = ActiveWorkbook
Persons_Email_Addr = "abc@abc.org"
Copy_To_Slay = "slay@abc.org"
Email_Subj = "New Travel Request"

Email_WB.SendMail Recipients:=Persons_Email_Addr, _
Subject:=Email_Subj

Email_Err:

End Sub

 

[Norie]

Why would it send an email to Copy_To_Slay?

You don't specify that as a recipient anywhere in the code.

 

[zioneye]

Thanks ... I new to this. How do I specify it as a recipeint in the code?

 

[stemar]

You can either send the message twice, once to each address, or create an array with the addresses - something like this:

dim MailAdd(2) as string
...
MailAdd(1) = "abc@abc.org"
MailAdd(2) = "slay@abc.org"
...
Email_WB.SendMail Recipients:=MailAdd(), _
Subject:=Email_Subj
...

HTH

 

[xenou]

I'm not super up on email macros but I don't see any option for CC in .SendMail

It looks like its also possible to have multiple recipients on the To line and use an array to enter this data:

Dim a As Variant
a = Array("abc@abc.com", "abc@abc.com")
wb.SendMail Recipients:=a

AB

Edit: Doh! Yes this is what Norie did too....used an array called MailAdd...