.Send Mail - Additional Email Recipient

**pauldaddyadams** · 03-11-2009, 07:09 PM

I have the code below but I need to add another email recipient but do not now how? – How do I add Damon@Test.com as a CC

Also – What would I need to put in the code so I can have “Please see the attached updated Maintenance Schedule” in the body of the email?

   
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _

FileFormat:=FileFormatNum

On Error Resume Next

.SendMail "Paul.Adams@Test.com", _

"Maintenance Schedule"

On Error GoTo 0

Close SaveChanges:=False

End With

**Leith Ross** · 03-11-2009, 10:08 PM

Hello pauldaddyadams,

This code sends an email using your default email program. The separator you will use for multiple addresses varies depending on the email program and the version. It may be either a comma or a semicolon. Pick one to use. If you get an error change the separator. Copy this code into a Standard VBA Module. Another possible source of errors depending on your email program, is spaces and other non printable characters may have to be converted to their hexadecimal equivalents to make the characters email safe. If you have problems, let me know.

'This will Launch the default Email program
 Private Declare Function ShellExecute _
  Lib "Shell32.dll" _
    Alias "ShellExecuteA" _
     (ByVal hWnd As Long, _
      ByVal lpOperation As String, _
      ByVal lpFile As String, _
      ByVal lpParameters As String, _
      ByVal lpDirectory As String, _
      ByVal nShowCmd As Long) As Long

Sub SendEmail(MailTo As String, Subj As String, Message As String, CC As String)

  Dim RetVal
  Dim URL As String

      URL = "MailTo:" & MailTo & "?subject=" & Subj & "&body=" & Message & "&CC=" & CC
      RetVal = ShellExecute(0&, "open", URL, "", "", vbHide)
    
End Sub