valeryk2000
Registered User.
- Local time
- Today, 02:19
- Joined
- Apr 7, 2009
- Messages
- 157
Our Access 2003 application generates emails by using VBA. The sending part of the code looks like that:
Set mMail = appOutlook.CreateItem(olMailItem)
With mMail
.To = strAddress
.CC = strCC
.Subject = strSubject
.Body = strBody
.Send
End With
Our user wants one line in the email to be presented in larger font:
========
[FONT="]Disposition of case (based on screening by the Physician Reviewer):[/FONT]
[FONT="]- Refer to Nursing Peer Review Committee[/FONT]
[FONT="]- Refer to Hospital Administration: Quality/Regulatory[/FONT]
[FONT="]Please complete case follow-up by 2/9/2016[/FONT]
[FONT="]Physician Reviewer: name
================
I googled it and tried to apply this code (just for one paragraph):
[/FONT]
strBody=strBody & "<p style='font-family:calibri;font-size:14'>" & "
Please complete case follow-up by 2/9/2016" & "</p>"plus changed the sending part of code to (see above)
With mMail
.To = strAddress
.CC = strCC
.Subject = strSubject
.BodyFormat = olFormatHTML
.HTMLBody = strBody
.Send
End With
It does not work. Any suggestions? Thanks
Val
Set mMail = appOutlook.CreateItem(olMailItem)
With mMail
.To = strAddress
.CC = strCC
.Subject = strSubject
.Body = strBody
.Send
End With
Our user wants one line in the email to be presented in larger font:
========
[FONT="]Disposition of case (based on screening by the Physician Reviewer):[/FONT]
[FONT="]- Refer to Nursing Peer Review Committee[/FONT]
[FONT="]- Refer to Hospital Administration: Quality/Regulatory[/FONT]
[FONT="]Please complete case follow-up by 2/9/2016[/FONT]
[FONT="]Physician Reviewer: name
================
I googled it and tried to apply this code (just for one paragraph):
[/FONT]
strBody=strBody & "<p style='font-family:calibri;font-size:14'>" & "
Please complete case follow-up by 2/9/2016" & "</p>"plus changed the sending part of code to (see above)
With mMail
.To = strAddress
.CC = strCC
.Subject = strSubject
.BodyFormat = olFormatHTML
.HTMLBody = strBody
.Send
End With
It does not work. Any suggestions? Thanks
Val