SendMail Question

[Guest]

Hi,

I am using the following code to attached a spreadsheet to an outlook message.

Application.Dialogs(xlDialogSendMail).Show _
arg1:=Sheets("Sheet1").Range("A1"), _
arg2:=Sheets("Sheet1").Range("A2")

I am able to specify a e-mail address with arg1 and subject with arg2 but
does anybody know if it is possible to specify some content for the body of
the e-mail message?

Thanks

 

[Guest]

Andy,

I find it much more convenient to make a reference to the Outlook Library
and send mail messages that way. There are methods to include messages in
the body of the email.

 

[Bob Phillips]

The only other argument seems to be return receipt, so it looks like no.

If you have Outlook, you could build an email via automation which can
handle this. There is an example here
http://www.xldynamic.com/source/xld.EarlyLate.html

 

[Guest]

Hi Bob,

Thanks for this guidance. Perhaps I need to approach this in a different
way. I've tried also using some code from Ron de Bruins site (i think) which
does everything I want except that it automatically sends the mail and I
don't want this to happen. I want the e-mail message to be displayed as per
"Application.Dialogs(xlDialogSendMail).Show" so that the user can intervene
and add more text to the body. Is this possible at all using his code?

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("Sheet1").Range("A1")
.CC = ""
.BCC = ""
.Subject = Sheets("Sheet1").Range("A2")
.Body = Sheets("Sheet1").Range("A3")
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing


Application.Quit

 

[Ron de Bruin]

Use display instead of Send

You can see that in all my examples
.Send 'or use .Display

 

[Bob Phillips]

Andy,

Then just change .Send to ,Display and it will open up but not send.

 

[Guest]

Hi Ron,

Thank you very much, this works perfectly. I feel a bit sheepish as it was
so simple....

 

[Ron de Bruin]

If you want to add more text see also
http://www.rondebruin.nl/mail/tips2.htm

 

[Guest]

Thank you Bob,

Kind Regards
--
Andy Tallent

Andy,

Then just change .Send to ,Display and it will open up but not send.