Attachment Hell

T8JGT · Apr 1, 2005

i have a piece of code which develops an email in outlook, it worls great. BUT i need the attachment to be in the body of the email.

Any Suggestions (code below).

Private Sub cmdSend_Click()
Dim strEmail, HTML As String
Dim objOutlook As Object
Dim objEmail As Object

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

strEmail = txtEmail
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & ""
HTML = HTML & ITSQFDocumentName & " received from " & ProjectServiceDesigner & _
":" & "" & " '" & ProjectName & "'" & "" & "- PAR "
If IsNull(ProjectPAR) Then
HTML = HTML & "TBA " & Chr(13) & " "
Else
HTML = HTML & ProjectPAR & Chr(13) & Chr(13) & " "
End If
If Not IsNull(ProjectLiveDate) Then
HTML = HTML & "Go Live " & ProjectLiveDate & Chr(13) & " "
End If
HTML = HTML & "" & ProjectSummary & Chr(13) & ""
HTML = HTML & "" & ITSQFServRecommendation & Chr(13)
HTML = HTML & ITSQFQualityGate & Chr(13)
If Not IsNull(ITSQFList) Then
HTML = HTML & "with the following points to note:" & Chr(13) & " "
End If
HTML = HTML & ITSQFList & Chr(13) & " "
HTML = HTML & "</body>"
HTML = HTML & "</html>"
objEmail.HTMLBody = HTML

'***creates and sends email
With objEmail
.To = ITSQFEmail
.CC = "email@email.com"
.Subject = "ITSQF Submission"
.HTMLBody = HTML
.Attachments.Add (ITSQFDocumentAddress)
.Send
End With

Set objEmail = Nothing

DoCmd.Close

End Sub

HarleyQuinn · Apr 1, 2005

I might be wrong but as far as I know when using a HTML message format it doesn't support attachments as part of the e-mail body.

Why do you need to do this rather than just send the attachment as is??

Cheers

Harleyquinn

---------------------------------
For tsunami relief donations

T8JGT · Apr 1, 2005

The reason is it is company policy to send in this format as it is copied into my differend documents.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Attachment Hell

T8JGT

IS-IT--Management

HarleyQuinn

Programmer

T8JGT

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor