I created some VBA code to create and send a mail message using VBA in Word 97. I have Outlook 98.

When I run the code or step through the code with the variables collapsed, the message does not include the signature and the creation date is wrong. When I step through the code and expand the variable myItem (see below), the signature is included and the creation date is correct. I want the signature included in all cases. What need I do?

Here's the code:
<pre>Sub SendMessage()
Dim strRecipient As String
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.MailItem

strRecipient = InputBox("Recipient?")

Set myItem = myOlApp.CreateItem(olMailItem)
With myItem
With .Recipients.Add(strRecipient)
.Type = olTo
If Not .Resolve Then
MsgBox "Unable to resolve address."
Exit Sub
End If
End With
.Subject = "Test"
.Body = _
"This is a test message" & vbCrLf _
& .CreationTime _
& .Body 'Include the signature
End With

Set myOlApp = Nothing
Set myItem = Nothing

End Sub