G
Guest
Hi,
I'm using Ron De Bruin's example to email a small messege as shown below;
Sub Mail_small_Text_Outlook_1()
' Is working in Office 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "Your Apr/May team brief feedback form has yet to be returned,
please ensure that this is returned by:" & vbNewLine & vbNewLine & _
"Thank You" & vbNewLine & vbNewLine & _
"Director"
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Team Brief Feedback Form"
.Body = strbody
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
My question is , Is it possible to include in the body of the message a
value from cell G11(which is a date), I ideally need to add this date after
"Your Apr/May team brief feedback form has yet to be returned, please ensure
that this is returned by:"
Any help is appriciated.
Respectx
Laddie
I'm using Ron De Bruin's example to email a small messege as shown below;
Sub Mail_small_Text_Outlook_1()
' Is working in Office 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "Your Apr/May team brief feedback form has yet to be returned,
please ensure that this is returned by:" & vbNewLine & vbNewLine & _
"Thank You" & vbNewLine & vbNewLine & _
"Director"
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Team Brief Feedback Form"
.Body = strbody
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
My question is , Is it possible to include in the body of the message a
value from cell G11(which is a date), I ideally need to add this date after
"Your Apr/May team brief feedback form has yet to be returned, please ensure
that this is returned by:"
Any help is appriciated.
Respectx
Laddie