I'm using the following code to send an email. Works great. How can I make [Mtrack] be a clickable link in the email? And when you click the link
it would follow: Application.FollowHyperlink "http://wwwapps.ups.com/WebTracking/track?track=yes&trackNums=" & [Mtrack]
Thanks!
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = [email1]
'.CC = [email2]
'.BCC = ""
'.Attachments.Add
.Subject = "Shipping Confirmation!"
.Body = "A package is coming your way." & Chr(10) & Chr(10) & _
"Tracking No: " & [Mtrack] & Chr(10) & _
"Date Sent: " & [Mdatesent] & Chr(10) & Chr(10) & _
'.Send
.Display
End With
it would follow: Application.FollowHyperlink "http://wwwapps.ups.com/WebTracking/track?track=yes&trackNums=" & [Mtrack]
Thanks!
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = [email1]
'.CC = [email2]
'.BCC = ""
'.Attachments.Add
.Subject = "Shipping Confirmation!"
.Body = "A package is coming your way." & Chr(10) & Chr(10) & _
"Tracking No: " & [Mtrack] & Chr(10) & _
"Date Sent: " & [Mdatesent] & Chr(10) & Chr(10) & _
'.Send
.Display
End With