E
Earl.AKA J.Alladien in access forum!!
Hi All,
I think most of you are formilliar with Arvin's code which is:
'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = Forms![Names1]![E-mail Address]
.Subject = Forms![Names1]![SUB]
.Body = Forms![Names1]![Body]
.SEND
'.ReadReceiptRequested
End With
Exit_Here:
Set objOutlook = Nothing
Exit Sub
Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here
I was wondering if it's possible in abovementioned code to format the text
for the BODY in differant colours,Partially in differant colours and or make
some words Bigger then the rest of the text, you know like when you compose a
new mail-message you can do to the Text whatever you like!
Is this possible?Thanks in advance for the help!
I think most of you are formilliar with Arvin's code which is:
'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = Forms![Names1]![E-mail Address]
.Subject = Forms![Names1]![SUB]
.Body = Forms![Names1]![Body]
.SEND
'.ReadReceiptRequested
End With
Exit_Here:
Set objOutlook = Nothing
Exit Sub
Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here
I was wondering if it's possible in abovementioned code to format the text
for the BODY in differant colours,Partially in differant colours and or make
some words Bigger then the rest of the text, you know like when you compose a
new mail-message you can do to the Text whatever you like!
Is this possible?Thanks in advance for the help!