View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Mike Mike is offline
external usenet poster
 
Posts: 3,101
Default Sendmail with a named cell value as recipient

Private Sub sendSheet()
Dim eMailAddress As String

eMailAddress = Range("MgrEMail").Value

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


End Sub

"ssGuru" wrote:

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 ", "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
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