LinkBack URL
About LinkBacks
Macro that sends a formatted email from Excel
I created this macro in Excel below to send emails to the team that the data belongs to. The problem is that the email has to be a specific font and color and has to add my signature.
This code works, but does not format any text.
Sub Send_Range()
' Select the range of cells on the active worksheet.
Application.Goto ActiveWorkbook.Sheets("Team").Range("A10:J33")
'Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Good morning, Here are the stats for your team Today, Yesterday and MTD."
.Item.To = "Team <[email protected]>"
.Item.Subject = "Today, Yesterday, MTD -Team"
.Item.Send
End With
End Sub
This is the code that I am working on. I want to add the font color, font, and my signature. I am new to VB and have found all the information that I need from this forum. You guys seem to know it all, so I thought I'd ask for help on finding the correct command to make this email format correctly.
Sub Send_Range()
Dim blue, rgbValue As Integer
' Return the value for BLUE.
blue = RGB(0, 150, 214)
' Select the range of cells on the active worksheet.
Application.Goto ActiveWorkbook.Sheets("Team").Range("A13:J48")
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction= "<html><span style='font size:11.0pt;Font Face:Simplified;color:blue'>" & _
"Good Morning Team,"<p2>"Here are the stats for your team Today, Yesterday and MTD."<p2/><p3>"Regards,"<p3/><p4>"Myname"<p4/><p5>"mytitle"<p5/><br><p6>"mygroup"<p6/><p7><p7/><p8>"[email protected]"<p8/><P9>"Myphonenumber"<P9/><P10>"Company Name"<P10/><P11>"2351 HP Way"<P11/><P12>"Rio Rancho, NM 87124"<P12/><P13>"USA"<P13/><br><br>" & _
"<html/></span>"
.Item.To = "TeamTeam <[email protected]>"
.Item.Subject = "Today, Yesterday, MTD SLA -Team"
MsgBox .HTMLbody
.Item.Send
End With
End Sub
Any help would be appreciated.
Register To Reply
Bookmarks