generate and send mail

[idono]

How can I send a mail message(through outlook) from Excel VBA.

 

[SkipVought]

Hi,
Here's one that I did. It sends the ActiveWorkbook -- just modify to suite...

   Dim sSendTo As String
   
   Application.ScreenUpdating = False
   
   sPath = ActiveWorkbook.Path
   sWorkbookName = sPath & "\" & "S" & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now()) & Second(Now()) & ".xls"
   ActiveWorkbook.SaveAs FileName:=sWorkbookName
   
   sSendTo = Range("SendTo")
   Sheets("Parameters").Activate
   Range("SendTo").Copy
   
   With Application.Dialogs(xlDialogSendMail)
      .Show sSendTo, "Survey"
   End With

Skip,
metzgsk@voughtaircraft.com

 

[idono]

Thanks Skip! It works well