Greetings,
I am looking to use VBA to create a new E-mail and use text template that uses ranges but I can't seem to figure it out of find the answer.
and assistance would be appreciated.Private Sub CommandButton1_Click() On Error GoTo ErrHandler Dim objOutlook As Object Set objOutlook = CreateObject("Outlook.Application") Dim objEmail As Object Set objEmail = objOutlook.CreateItem(olMailItem) With objEmail .to = Range("e1") .CC = .Subject = Case: (Range A1) incident: (Range P1) .Body = Greetings (Range O1) this message (Range Q1) .Display End With Set objEmail = Nothing: Set objOutlook = Nothing ErrHandler: ' End Sub
Bookmarks