Greetings All!
I am trying to get Msg to equal a range of cells in Sheet 2 (B1: G105) so that those cells are pasted into the email as text.
The code below works, it just needs some modifications for Msg.
Any help is appreciated as I have searched a ton of threads and other websites as well.
Code
Sub SendEmail()
Dim OutlookApp As Object
Dim MItem As Object
Dim cell As Range
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Msg As String
Set OutlookApp = CreateObject("Outlook.Application")
For Each cell In _
Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "*@*" Then
Subj = "Daily Data"
Recipient = cell.Offset(0, -1).Value
EmailAddr = cell.Value
'How can I get Msg to equal a range of cells in Excel??
Msg = "Good Morning"
Set MItem = OutlookApp.CreateItem(0)
With MItem
.To = EmailAddr
.Subject = Subj
.Body = Msg
.Display
End With
End If
Next
End Sub
Display More