Sendmail with a named cell value as recipient

  • Thread starter Thread starter ssGuru
  • Start date Start date
S

ssGuru

Have been working up an app and need to send emails from it.
I have reviewed Ron de Bruin's excellent articles and have configured
code to work.

Using Sendmail I can happily email colleagues if I use the prescribed
syntax:

Activeworkbook.Sendmail Recipient, Subject

Sooooooo,
Activeworkbook.Sendmail (e-mail address removed)", "Forcast " & Format(Now, "mm-dd-
yy")
After a dialogue warning asking permisssion about sending the mail it
works just fine with Outlook.

However I want to use the recipient name based on the value in a named
cell in the workbook
For example a cell NAMED "MgrEMail" with the value (e-mail address removed) as the
current value

I have tried the obvious .SendMail MgrEMail, "Forcast " & Format(Now,
"mm-dd-yy") but it just opens Outlook without a recipient.

Is there a way to do this?

Thanks,
Dennis
 
Private Sub sendSheet()
Dim eMailAddress As String

eMailAddress = Range("MgrEMail").Value

ActiveWorkbook.SendMail _
Recipients:=eMailAddress, _
Subject:="Forcast " & Format(Date, "mm-dd-yy ")


End Sub
 
Private Sub sendSheet()
Dim eMailAddress As String

eMailAddress = Range("MgrEMail").Value

ActiveWorkbook.SendMail _
Recipients:=eMailAddress, _
Subject:="Forcast " & Format(Date, "mm-dd-yy ")

End Sub
Click to expand...

Thanks Mike. It worked perfectly with Outlook. I've also added some
other ranges to the subject and attached file name using the same
code.
Any known problems with other eMail clients? Eudora, LotusNotes,
etc..
Dennis
 
Back
Top