Help Macro

  Pedro Campos 18:20 30 Jul 09
Locked

Hi There...

I have the "SendMail" macro below that sends the email to one recipient but i would like to to send to various recipients. can someone help?

' New1 Macro
' Macro recorded 30/07/2009 by pcampos
'

'
cln = MsgBox("Are you sure you have checked all daily checks? - You cannot recall the email once it is sent", vbYesNo)

If cln = vbYes Then

Filename = Range("A1").Value
Check_Date = Range("A2").Value
Format_Date = Format(Check_Date, "dd mmm yyyy")
Filename = "y:\Daily Processes\Daily Checks\" + Filename + " " + Format_Date + " final.xls"
ActiveWorkbook.SaveAs Filename

ActiveWorkbook.SendMail Recipients:="Pedro Campos", Subject:="Daily Checks" + " " + Format_Date
ActiveWorkbook.Close

Else
Range("E6").Select
End If
End Sub

  VoG II 18:28 30 Jul 09

You should be able to get the correct syntax from click here

  Pedro Campos 20:19 30 Jul 09

A bit too complicated and I am very new in this... I just need to add and extra email address where it says:

"ActiveWorkbook.SendMail Recipients:="Pedro Campos",

  OTT_Buzzard 20:46 30 Jul 09

Try:

ActiveWorkbook.SendMail Array("Pedro Campos", "Fred Campos, "Blah blah blah")

  OTT_Buzzard 20:46 30 Jul 09

Typo, missed speech marks:

ActiveWorkbook.SendMail Array("Pedro Campos", "Fred Campos", "Blah blah blah")

  Pedro Campos 21:12 30 Jul 09

The "array" works perfectly and ia exactly waht I was looking for

  Pedro Campos 21:13 30 Jul 09

closed

  Pedro Campos 21:37 30 Jul 09

Can I also add a message body with some text?

  OTT_Buzzard 22:07 30 Jul 09

I don't believe that SendMail can add a message body, althoug others may be able to prove me wrong!

This thread is now locked and can not be replied to.

Best phone camera 2016/2017: Galaxy S7 vs iPhone 7 vs Google Pixel vs HTC 10 Evo vs OnePlus 3T vs…

1995-2015: How technology has changed the world in 20 years

These are the Best Christmas Ads and Studio Projects of 2016

Super Mario Run preview | Hands-on first impressions of Super Mario Run: Mario's iPhone & iPad…