email layout

[Andrea]

Hello to everybody
In my everyday job I need to send an excel report to my company Directors.
Reading previous posts, I arrived here
http://www.rondebruin.nl/sendmail.htm and I found some excellent VBA steps
that help to me. But I have a particular necessity I didn't find there. I
explain myself
I made these lines

Sub create_email()
Dim OutApp As Object: Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
.display
.To = "(e-mail address removed);[email protected]"
.CC = ""
.BCC = ""
.Subject = "daily report"
.body = "today feature"
.body = "1. xxxxxx "
.body = "2. yyyyyy "
.Attachments.Add ("C:\mydoc\daily report.xls")
.Send
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

running program as above written, I found attachement file icon at the top
side of email body, showed before the pre-formatted text ("1. xxxxxx ", "2.
yyyyyy ").
Unfortuantely I need that email layout must be like this:
_______________
1. xxxxxx (and eventually with indented point)
2. yyyyyy (and eventually with indented point)

icon file

greetings
_______________

I try to move .body before or after .attachments.add command, but the result
is always the same.
I hope to have well explained my problem and that someone can help to me.
Thanks.

Andrea.

 

[Les Stout]

Hi Andrea, I had the same problem and solved it with the following:

Create your body using the string as below, this worked for me...

dim BodyText as string


BodyText = "Good Day all, " & vbNewLine & vbNewLine & _
"Please find attached the latest gAMS report." &
vbNewLine & vbNewLine & _
" • This report is for new gAMS Documents that
were not created by or allocated to ZA-T-M." & vbNewLine & vbNewLine & _
" • Please open the attachment and refer to the
UPG responsibilities per department on the right of the spreadsheet." &
vbNewLine & vbNewLine & _
" • Then check in the gAMS system to check if it
is valid for you or not, if it is valid for W.9 and you require " &
vbNewLine & _
" funds or an action, you will be required to
contact your CoC or the gAMS Prime Mover to action an AFO." & vbNewLine
& vbNewLine & vbNewLine & vbNewLine & _
"**** Should a UPG be allocated incorrectly or changed,
please advise Les Stout of the changes. ****" & vbNewLine & vbNewLine &
vbNewLine & _
"If you have any queries regarding this document, please
contact the sender." & vbNewLine & vbNewLine & vbNewLine & _
"Best Regards," & vbNewLine & vbNewLine & _
"gAMS_Auto_Macro" & vbNewLine & vbNewLine & _
"ZA-T-M-22" & vbNewLine & vbNewLine & _
"Please Note:" & vbNewLine & _
"The attachment and this e-mail are generated
automatically"

Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***