C
Chris
I'm a super novice with VBA, so please bear with my lack of knowledge.
Using Word and Outlook 2003, and thanks to code offered in previous
discussions here, I have a Send Form command button on a Word form that opens
an Outlook message, pre-addressed, with a body text offering "Additional
comments:" The only problem is the Word document attachment icon (the
message opens in Rich Text format) is directly above the body text. Some
message recipients want to click directly next to the colon after "comments"
and begin to type. Naturally, the attachment icon is activated, and the
typed additional text pushes the icon across the message.
Is there any way to add a blank line between the icon and the beginning of
the body text? Or, is there a way to make the message format HTML so that
the attachment icon shows under the Subject line and not in the message body?
Would greatly appreciate any assistance.
The code I'm using:
Private Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
With EmailItem
.Subject = "Subject Title"
.Body = "Additional comments:"
.To = "(e-mail address removed)"
.Importance = olImportanceNormal 'Or olImprotanceHigh Or
olImprotanceLow
.Attachments.Add Doc.FullName
.Display
End With
Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub
Using Word and Outlook 2003, and thanks to code offered in previous
discussions here, I have a Send Form command button on a Word form that opens
an Outlook message, pre-addressed, with a body text offering "Additional
comments:" The only problem is the Word document attachment icon (the
message opens in Rich Text format) is directly above the body text. Some
message recipients want to click directly next to the colon after "comments"
and begin to type. Naturally, the attachment icon is activated, and the
typed additional text pushes the icon across the message.
Is there any way to add a blank line between the icon and the beginning of
the body text? Or, is there a way to make the message format HTML so that
the attachment icon shows under the Subject line and not in the message body?
Would greatly appreciate any assistance.
The code I'm using:
Private Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
With EmailItem
.Subject = "Subject Title"
.Body = "Additional comments:"
.To = "(e-mail address removed)"
.Importance = olImportanceNormal 'Or olImprotanceHigh Or
olImprotanceLow
.Attachments.Add Doc.FullName
.Display
End With
Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub