OK i have this working a treat - but its messy
I click the button and it populates th eemail with informaiton from my form
My form have Text fields on it (I will rename them later) and these text fields are populated via a combo drop down - but it looks a little sloppy from Blockquote onwards
effectively blockquotes is a standard letter 5 paragraphys-
any pointers on tiding up .........
Private Sub EmailerZ_Click()
Dim EmailApp, NameSpace, EmailSend As Object
Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)
EmailSend.to = [Forms]![quotefrm]!
EmailSend.Subject = " Our Reference :-" & " " & [Forms]![quotefrm]![QuoteNo] & " - " & "(" & [Forms]![quotefrm]![Insured] & ")"
EmailSend.HTMLBody = _
"<p>" & "For the Attention of :-" & [Forms]![quotefrm]![POC] & " </p>" _
& vbCrLf & vbCrLf _
& "<br>" & "Insured :-" & [Forms]![quotefrm]![Insured] & " </br>" _
& "<br>" & "Event :-" & [Forms]![quotefrm]![Eventname] & " </br>" _
& "<br>" & "Dates :-" & [Forms]![quotefrm]![openfrom] & " To " & [Forms]![quotefrm]![opento] & " </br>" _
& "<br>" & "Venue :-" & [Forms]![quotefrm]![venuename] & " </br>" _
& "<h1>" & [Forms]![quotefrm]![Text184] & "</h1>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text151] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text155] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text157] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text277] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text279] & "</blockquote>" & "</blockquote>" _
& "<br>" & [Forms]![quotefrm]![AccounthandName] & "</br>" _
& "<br>" & [Forms]![quotefrm]![Accounthandtitle] & "</br>" _
& "<br>" & [Forms]![quotefrm]![AccEmail] & "</br>" _
& "<br>" & [Forms]![quotefrm]![accTel] & "</br>" _
& "<br>" & [Forms]![quotefrm]![AccFax] & "</br>" _
& "<br>" & [Forms]![quotefrm]![Webaddz] & "</br>" _
& vbCrLf & vbCrLf _
& "<p>" & [Forms]![quotefrm]![AccountHandsignoff1] & "</p>" _
& "<p>" & [Forms]![quotefrm]![accountHandsignoff2] & "</p>" _
& "<font size=""2"">" & [Forms]![quotefrm]![accountHandsignoff8] & "</font>"
If IsNull([attachmentfld]) Then
'do nothing'
Else
EmailSend.Attachments.Add ([attachmentfld])
End If
'Chr(9)
EmailSend.Display
Set EmailApp = Nothing
Set NameSpace = Nothing
Set EmailSend = Nothing
I click the button and it populates th eemail with informaiton from my form
My form have Text fields on it (I will rename them later) and these text fields are populated via a combo drop down - but it looks a little sloppy from Blockquote onwards
effectively blockquotes is a standard letter 5 paragraphys-
any pointers on tiding up .........
Private Sub EmailerZ_Click()
Dim EmailApp, NameSpace, EmailSend As Object
Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)
EmailSend.to = [Forms]![quotefrm]!
EmailSend.Subject = " Our Reference :-" & " " & [Forms]![quotefrm]![QuoteNo] & " - " & "(" & [Forms]![quotefrm]![Insured] & ")"
EmailSend.HTMLBody = _
"<p>" & "For the Attention of :-" & [Forms]![quotefrm]![POC] & " </p>" _
& vbCrLf & vbCrLf _
& "<br>" & "Insured :-" & [Forms]![quotefrm]![Insured] & " </br>" _
& "<br>" & "Event :-" & [Forms]![quotefrm]![Eventname] & " </br>" _
& "<br>" & "Dates :-" & [Forms]![quotefrm]![openfrom] & " To " & [Forms]![quotefrm]![opento] & " </br>" _
& "<br>" & "Venue :-" & [Forms]![quotefrm]![venuename] & " </br>" _
& "<h1>" & [Forms]![quotefrm]![Text184] & "</h1>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text151] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text155] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text157] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text277] & "</blockquote>" & "</blockquote>" _
& "<blockquote>" & "<blockquote>" & [Forms]![quotefrm]![Text279] & "</blockquote>" & "</blockquote>" _
& "<br>" & [Forms]![quotefrm]![AccounthandName] & "</br>" _
& "<br>" & [Forms]![quotefrm]![Accounthandtitle] & "</br>" _
& "<br>" & [Forms]![quotefrm]![AccEmail] & "</br>" _
& "<br>" & [Forms]![quotefrm]![accTel] & "</br>" _
& "<br>" & [Forms]![quotefrm]![AccFax] & "</br>" _
& "<br>" & [Forms]![quotefrm]![Webaddz] & "</br>" _
& vbCrLf & vbCrLf _
& "<p>" & [Forms]![quotefrm]![AccountHandsignoff1] & "</p>" _
& "<p>" & [Forms]![quotefrm]![accountHandsignoff2] & "</p>" _
& "<font size=""2"">" & [Forms]![quotefrm]![accountHandsignoff8] & "</font>"
If IsNull([attachmentfld]) Then
'do nothing'
Else
EmailSend.Attachments.Add ([attachmentfld])
End If
'Chr(9)
EmailSend.Display
Set EmailApp = Nothing
Set NameSpace = Nothing
Set EmailSend = Nothing