EMail Small Message from Excel
 

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

EMail Small Message from Excel
 

.Body = strbody & " date is " & Format(Range("G11").Value,"dd mmm
yyyy")

or if G11 is alraedy formatted

.Body = strbody & " date is " & Range("G11").Text

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"LaDdIe" wrote in message
...
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

EMail Small Message from Excel
 

GGGGGGGGGGGGGGGGGreat.

Thanks Bob

"Bob Phillips" wrote:

.Body = strbody & " date is " & Format(Range("G11").Value,"dd mmm
yyyy")

or if G11 is alraedy formatted

.Body = strbody & " date is " & Range("G11").Text

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"LaDdIe" wrote in message
...
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