Send Email

[rbs]

Hi Everyone,

I am sending emails from a form based on the contents of fields on the form.

It is working fine, but I need paragraphs to appear in the body.

How do I do this?


My script is as follows:

Private Sub Command149_Click()

Dim strEmail As String
Dim strclient As String
Dim strmessage As String
Dim strsubject As String
Dim strSQL As String

Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

Set objOutlook = CreateObject("outlook.application")
Set objEmail = objOutlook.createitem(olmailitem)

strEmail = Me![Email Address]
strmessage = "Re: Purchase Order # : " & Me!Text152 & Me!Text159 & "Kind Regards, " & Me!Text161
strsubject = Me!Text157 & " " & Me!Text152

With objEmail
.to = strEmail
.subject = strsubject
.Body = strmessage
.send
End With

MsgBox "Email Sent", vbInformation, "Notice"

Set objEmail = Nothing
objOutlook.Quit
Set objOutlook = Nothing

End Sub

Thanks in advance.

N.

 

[Andrew Fergus]

Hi,

I'm not an expert at coding, but try inserting this :

& (Chr(13)+Chr(10)+Chr(13)+Chr(10))

into this piece of code :

strmessage = "Re: Purchase Order # : " & Me!Text152 & Me!Text159 & "Kind Regards, " & Me!Text161

so that it looks something like this :

strmessage = "Re: Purchase Order # : " & Me!Text152 & (Chr(13)+Chr(10)+Chr(13)+Chr(10))
& Me!Text159 & (Chr(13)+Chr(10)+Chr(13)+Chr(10))
& "Kind Regards, " & (Chr(13)+Chr(10))
& Me!Text161

Chr(13) = carriage return and Chr(10) = line feed - doubling it up will give the effect of a new paragraph rather than just a new line.

I tried it with just the Chr(13) in a query (not tested on the code) and I couldn't get it to work but the query worked when I added the line feed.

HTH, Andrew.