Adding a reference field to .htmlbody

[aflores41]

Hello,

What's the best way to add a reference field to a .htmlbody of access db.

For example:

"Dear Mr. &![LName]&,"

Challenges on this code is it doesn't reference the field. It reads it as text.

Thank you!

-Alain

[twinnyfo]

Alain,

I can't specifically address the HTML aspect of this, as I have not had success with using HTML in VBA for sending e-mails.

However, concerning the code you posted, this will work better:

"Dear Mr. " & ![LName] & ","

It is important to get all the quotation marks in the right places.

[aflores41]

Once again, thank you!

[twinnyfo]

Glad I can be of service!

[aflores41]

Another issue, I'm trying to do page breaks. Was using

"Dear Mr. " & ![LName] & "," & <br/> &

or

<br> </br>

or

& vbCrLf &

but that doesn't work. Also, adding formatting such as bolding the font. Thanks so much!

[twinnyfo]

I have been playing with HTML just this morning!

Since E-Mail does not have a "page", that type of break won't really work here--it just adds another line. To Bold some text, add the following (assuming you have a String called strBody):

strBody = "This is <B>Bold</B> Text. This is <I>Italic</I>."

A quick list of some HTML tags can be found here:

HTML Tags

Hope this hepps.

[twinnyfo]

P.S. Don't forget to declare the BodyFormat as HTML and use the .HTMLBody Property when sending.

[aflores41]

Thanks! Well I got everything to work except for bolding the referenced field.

"Dear Mr. " & <b>![LName]</b> & ","

error is with

<b>![LName]</b>

as syntax error.

[twinnyfo]

Try this:

"Dear Mr. <B>" & ![LName] & "</B>,"

[aflores41]

Also, if anyone knows how to add the default signature from outlook to the

.htmlbody = strbody

. code.

[aflores41]

"Dear Mr. <B>" & ![LName] & "</B>,"

Works!
Thank you!

[aflores41]

'GET DEFAULT EMAIL SIGNATURE
    signature = Environ("appdata") & "\Microsoft\Signatures\"
    If Dir(signature, vbDirectory) <> vbNullString Then
        signature = signature & Dir$(signature & "*.htm")
    Else:
        signature = ""
    End If
    signature = CreateObject("Scripting.FileSystemObject").GetFile(signature).OpenAsTextStream(1, -2).ReadAll
'-------------------------------------------------------------------------------------------------------------

strbody = "dear ....." & signature
.htmlbody = strbody

VBA code for adding default signature from outlook to .htmlbody in access.

Thanks all!

-Alain

[twinnyfo]

Your first block of code may work for a standard Windows machine, although I would declare separate strings for the Path and the actual signature. Also creates problems if there are multiple Signature blocks for the same user (I have two). However, when Windows starts moving stuff around again.....

I've been able to get the Signature block to appear in a blank e-mail, but haven't been successful in joining my HTMLBody with the signature block.

All research I have done has found solutions similar to what you have: find the signature file in the file structure. But, as mentioned, there are challenges with that.

Still lookin'........ .....