alternative to html emails, format template in access

tonyx666 · Sep 20, 2006

i realise that without html emails, the formatting capabilities are very limited.. eg.. you cant use tables or images.. to my knowledge

i believe the alternative is rtf, rich text format, which is just basic text

i have a button on my form that opens outlook and sends an email using the information from my fields.

what i need to know is whether any formatting at all can be added.. in access.. that will jazz up the outlook template even a little bit...

for example.. below is the code for my button.. is there any tags i can add to format the font..

like html tags.. <arial><10pt><blue><bold>"Name: " & Me.Myfield....

i know these tags are non existent, but i just wanted to illustrate what im looking for.. if this can be done.. i would like to see an example of the code, so atleast i can freely add some formating to different paragraphs in my email body..

here is the code at the moment..

Code:

Option Compare Database

Private Sub emailbutton_Click()
On Error GoTo send_Err


Dim strToWhom As String
Dim strMsgBody As String
Dim strSubject As String
Dim temp As Integer

temp = Right([jobday], 1)

strSubject = "Email Title"

If Len(Me.emailadd & vbNullString) = 0 Then
    MsgBox ("Forgot an email address")
    Me.emailadd.SetFocus
Else
    strToWhom = Me.emailadd
    strMsgBody = "How can i format this text"

DoCmd.SendObject , , , strToWhom, , , strSubject, strMsgBody, True
End If

send_Err:
If Err.Number = 2501 Then
MsgBox "THIS EMAIL HAS NOT BEEN SENT!", vbInformation, "Notice!"
End If
End Sub

London Heathrow Cars

http://www.LondonHeathrowCars.com

Remou · Sep 20, 2006

Is using Outlook rather than SendObject an option for you? If so, you can use all the HTML tags you wish with Outlook's HTMlBody.

Code:

Private Sub SendEmail()
'References: Oulook Library
Dim strEmail, strSubject As String, strBody As String
Dim objOutlook As outlook.Application
Dim objEmail As outlook.MailItem

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

strEmail = " a @ b.c"
strBody = "Make this <B>bold</B> and <BR>add a line."
strSubject = "Subject"
With objEmail
    .To = strEmail
    .Subject = strSubject
    .HTMLBody = strBody
    '.Send 'Will cause warning message
    .Display
End With

Set objEmail = Nothing
End Sub

tonyx666 · Sep 20, 2006

so are you saying that my current method cannot allow html tags, and your method can.. and i should use your method..

would this allow me to pretty much recreate html code in access.. eg.. add tables.. images.. and all the rest

London Heathrow Cars

http://www.LondonHeathrowCars.com

PHV · Sep 20, 2006

Another way is to play with a Report.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

tonyx666 · Sep 20, 2006

im trying to do this.. so this new method shown to me is activated when my button is clicked but it says

user defined type not defined

Code:

Option Compare Database

Private Sub emailbutton_Click()
'References: Oulook Library
Dim strEmail, strSubject As String, strBody As String
Dim objOutlook As outlook.Application
Dim objEmail As outlook.MailItem

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

strEmail = " a @ b.c"
strBody = "Make this <B>bold</B> and <BR>add a line."
strSubject = "Subject"
With objEmail
    .To = strEmail
    .Subject = strSubject
    .HTMLBody = strBody
    '.Send 'Will cause warning message
    .Display
End With

Set objEmail = Nothing
End Sub

London Heathrow Cars

http://www.LondonHeathrowCars.com

PHV · Sep 20, 2006

menu Tools -> References ...
tick the Microsoft Outlook Object Library

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

tonyx666 · Sep 20, 2006

i dont have references on the tools menu

i have access 2003 (from office pro edition)

London Heathrow Cars

http://www.LondonHeathrowCars.com

Remou · Sep 20, 2006

The tools menu in the code window.

tonyx666 · Sep 20, 2006

oh.. i see.. my bad

London Heathrow Cars

http://www.LondonHeathrowCars.com

tonyx666 · Sep 20, 2006

ok cool, now im gettin somewhere.. i know i can be a bit pushy and very persistent..

thank you for this help.. really.. its great to talk to pros so directly like this.

are you telling me that like this.. i can just use ANY html tag i want..

like the img tag.. href.. align.. table cells.. font face.. All of them??

London Heathrow Cars

http://www.LondonHeathrowCars.com

Remou · Sep 20, 2006

Well, I haven't tried all of them

tonyx666 · Sep 21, 2006

im trying to add a html table and image to my email template in access..

i just need some help getting the syntax correct.. if you can infact include tables and images in this code.. once im shown the correct way to do it once i should be ok..

here it is anyway.. it is wrong

Code:

Private Sub emailbutton_Click()
'References: Oulook Library
Dim strEmail, strSubject As String, strBody As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

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

strEmail = Me.emailadd
strBody = "<table border="0" id="table1" cellspacing="0" cellpadding="0"><tr> & _
        <td><img border="0" src="[URL unfurl="true"]http://www.londonheathrowcars.com/emaillogo.gif"[/URL] width="560" height="113"></td> & _
    </tr></table>" & _
"Make this <B>bold</B> and <BR>add a line."
strSubject = "Subject"
With objEmail
    .To = strEmail
    .Subject = strSubject
    .HTMLBody = strBody
    '.Send 'Will cause warning message
    .Display
End With

Set objEmail = Nothing
End Sub

London Heathrow Cars

http://www.LondonHeathrowCars.com

Remou · Sep 21, 2006

Do not use double quotes within strings, do use double quotes at the beginnings of line. I wonder about your image source.

[tt]strBody = "<table border='0' id='table1'cellspacing='0' cellpadding='0'><tr>" _
& "<td><img border='0' src='

http://www.londonheathrowcars.com/emaillogo.gif'

width='560' height='113'></td>" & _
"</tr></table>" & _
"Make this <B>bold</B> and <BR>add a line."[/tt]

It is possible to include a report as body text in an email:
Access Report as Email Body
thread705-1114129

tonyx666 · Sep 21, 2006

a question:

why does this line end with the following

Code:

"<table border='0' id='table1'cellspacing='0' cellpadding='0'><tr>" [b]_[/b]

and the next line begins and ends with the following

Code:

[b]&[/b] "<td><img border='0' src='[URL unfurl="true"]http://www.londonheathrowcars.com/emaillogo.gif'[/URL] width='560' height='113'></td>" [b]& _[/b]

and this line is like this..

Code:

"</tr></table>" & _

now i remember you told me that & _ is a new line.. what i need to know is why the first two sentences dont both begin and end in the same way.. sorry to be this picky but it will save my time in the long run if i know why.

London Heathrow Cars

http://www.LondonHeathrowCars.com

Remou · Sep 21, 2006

Because I usually write
_ <next line> &
but you write
& _ <next line>
and I only changed the lines that were missing quotes.

tonyx666 · Sep 21, 2006

i seee.. ok thank you sir..

i shall begin building my elaborate template and see how it goes. thank you

London Heathrow Cars

http://www.LondonHeathrowCars.com

tonyx666 · Sep 21, 2006

ok... already im coming across problems..

i am trying to do things in this way..

"<table> blabla html code.. this and that" & _
"<html. more html here and this and that" & _

and so on.. but it doesnt seem to be working..

here is one table on one line that is showing in red.. and not executing..

i assumed that as long as all the html is in between the " and " tags on a line.. you can put anything you like.. is this correct??

here is the line of code that is causing me trouble.

are the additional " in the code causing these errors??

Code:

strBody = "<table border="1" width="550" id="table1" cellspacing="0" cellpadding="5" bordercolor="#5A79B5"><tr><td>&nbsp;</td></tr></table>" & _

London Heathrow Cars

http://www.LondonHeathrowCars.com

tonyx666 · Sep 21, 2006

OH Hang on, i have just seen you used ' instead of " for the table properties.. let me do that one moment..

yes i think i have got it.. watch this space

London Heathrow Cars

http://www.LondonHeathrowCars.com

tonyx666 · Sep 21, 2006

YES i think i have cracked it.. thank you.. i will show you my end result to prove that i have learned and re-inforce the power of the forum and human co-operability

London Heathrow Cars

http://www.LondonHeathrowCars.com

tonyx666 · Sep 21, 2006

ok, it just said to me Too Many Line Continuations..

what does that mean.. am i limited to the number of lines i can use..
??

London Heathrow Cars

http://www.LondonHeathrowCars.com

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!

alternative to html emails, format template in access

MIS

Technical User

MIS

MIS

MIS

MIS

MIS

Technical User

MIS

MIS

Technical User

MIS

Technical User

MIS

Technical User

MIS

MIS

MIS

MIS

MIS

Similar threads

Log in

Part and Inventory Search

Sponsor