Sub sendmail()
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
ReportDirectory = Range("rngReport")
ReportSavePath = ReportDirectory
RngEmailTo = Range("rngmailto")
Dim filepath As String
Dim strbody As String
strbody = Sheets("macro").Range("L3").Value
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("macro").Range("rngmailto")
.CC = Range("rngmailCC")
.Subject = ThisWorkbook.Sheets("macro").Range("F3:F3")
.Body = ThisWorkbook.Sheets("macro").Range("F32:F32") & strbody
.filepath = ThisWorkbook.Sheets("macro").Range("I3:I3")
.Attachments.Add ReportSavePath
.Body = "Please click on the link below..." & vbCrLf & vbCrLf & Sheets("macro").Range("I3").Value
"Need help with body to reference cel value containing directory and put as hyperlink
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
ReportDirectory = Range("rngReport")
ReportSavePath = ReportDirectory
RngEmailTo = Range("rngmailto")
Dim filepath As String
Dim strbody As String
strbody = Sheets("macro").Range("L3").Value
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("macro").Range("rngmailto")
.CC = Range("rngmailCC")
.Subject = ThisWorkbook.Sheets("macro").Range("F3:F3")
.Body = ThisWorkbook.Sheets("macro").Range("F32:F32") & strbody
.filepath = ThisWorkbook.Sheets("macro").Range("I3:I3")
.Attachments.Add ReportSavePath
.Body = "Please click on the link below..." & vbCrLf & vbCrLf & Sheets("macro").Range("I3").Value
"Need help with body to reference cel value containing directory and put as hyperlink
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub