Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook email url in body
I am using the below code to send an email based on cell data. however, I would like to include a url to a directory (eg \\server\directory\etc.) within the body of the email. Everything I try is coming out as plain text even though Outlook is set to send as HTML... The Outlook 11.0 Object Library is included in "Tools:References" Sub Send_Msg() Dim objOL As New Outlook.Application Dim objMail As MailItem Set objOL = New Outlook.Application Set objMail = objOL.CreateItem(olMailItem) With objMail ..To = Sheets("Order").Range("G35").Value ..Subject = Sheets("Order").Range("f3").Value & " " & Sheets("Job").Range("E6").Value ..Body = "Dear " & Sheets("Job").Range("B8").Value & _ "," & Chr(13) & Chr(13) & "Your production job for " & Sheets("Job").Range("E6").Value & " for customer: " & Sheets("Job").Range("I6").Value & " is in progress. " & _ "Your Spec Number is: " & _ Format(Sheets("Order").Range("f3").Value) & "." & Chr(13) & Chr(13) & "Regards" ..Display End With Set objMail = Nothing Set objOL = Nothing End Sub Cheers Kev -- kevinho ------------------------------------------------------------------------ kevinho's Profile: http://www.excelforum.com/member.php...o&userid=24984 View this thread: http://www.excelforum.com/showthread...hreadid=399412 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Send a Sheet as body of Outlook Email | Excel Discussion (Misc queries) | |||
body of email disappears when I send an email from Excel | Excel Discussion (Misc queries) | |||
Late Binding to Outlook from Excel: Outlook modifies email body | Excel Programming | |||
How to paste cells from Excel into Outlook email body? | Excel Programming | |||
Excel within the body of an email | Excel Programming |