send email body

[BazP]

I would like to send an attachment to a user and include some (body) text to it.

I'm putting it into the subject, but its getting too long.

Code im using is...

application.dialogues(xldialogsendmail).show user, subject

Can anyone help?

[dannymking]

For this I would try and use Microsoft Outlook directly in the code rather than the sendmail..

Irrespective of the Application you are using this can be accomplished by adding the Microsoft Outlook reference into the Tools, References in the Visual Basic Editor (ALT+F11) just scroll down until you find it.


Function WriteEmail(pTo As String, pSubject As String, pBody As String, pIsAttach As Boolean, _
Optional pCC As String = "", Optional pBCC As String = "", Optional pAttachLoc As String = "") As Boolean
Dim obOT As Outlook.Application
Dim obMI As Outlook.MailItem
Dim obAT As Outlook.Attachment
WriteEmail = False 'set the function to fail initially
'check for attachment first
If pIsAttach And pAttachLoc = "" Then
MsgBox "You have requested an attachment but have not supplied a filename", vbCritical, "No Attachement"
GoTo ExitProc
End If
'check the remaining required fields, in not populated then error out
If pTo = "" Then
MsgBox "Please supply at least one address to send to.", vbCritical, "No To Address"
GoTo ExitProc
End If
If pSubject = "" Then
MsgBox "Please supply a subject for this email.", vbCritical, "No Subject"
GoTo ExitProc
End If
If pBody = "" Then
MsgBox "Please supply a body of this email.", vbCritical, "No Body"
GoTo ExitProc
End If

'Get Outlook if it exists, if not attempt to create an instance
On Error GoTo CreateInst
Set obOT = GetObject(, "Outlook.Application")
GoTo WriteMail

CreateInst:
On Error GoTo NoOutlook
'Create the instance of outlook, if this fails at this point either there is not outlook installed
'or there is an application error.
Set obOT = CreateObject("Outlook.Application")
GoTo WriteMail

WriteMail:
On Error GoTo NoOutlook
Set obMI = obOT.CreateItem(olMailItem)
obMI.To = pTo
If pCC <> "" Then obMI.CC = pCC
If pBCC <> "" Then obMI.BCC = pBCC
If pIsAttach Then
Set obAT = obMI.Attachments.Add(pAttachLoc)
End If
obMI.Subject = pSubject
obMI.Body = pBody
obMI.Send
WriteEmail = True

ExitProc:
'close down the outlook object
On Error Resume Next
Set obAT = Nothing
Set obMI = Nothing
Set obOT = Nothing
On Error GoTo 0
Exit Function

NoOutlook:
MsgBox Err.Description, vbCritical, Err.Number
GoTo ExitProc
End Function

I use this myself in an access database..

You will however get a lot of confirmation notices due to outlook security, but it is pretty robust as it stands..

to use it do something like


If Not WriteEmail("PersonTo","subject","Body",True, , , "Filename") Then
Msgbox "Email Failed"
End If