J
JLW Tech
I'm trying to deliver a plain-text message, and any attachments that might be
added, using a Post Form in Outlook 2003, to a non-Outlook client. The
attachments are not being delivered. I currently do not have any code
included in the script for the form that handles attachments. What do I need
to do to for the users to be able to send an attachment that might be saved
on the network, in our document management system, or on their local machine,
with the form? The message control is on the form. Below is part of the code
for the form that sends the message in plain-text. What steps do I take to
get this to work? Thanks!
Sub cmdSubmit_Click ()
Dim strDetails
Dim objForward
On Error Resume Next
strDetails = Item.Body
Item.BodyFormat = 1
strBody = AddLine ("Subject") & _
AddLine ("Locations") & _
AddLine ("Dept.") & _
AddLine ("Phone Number") & _
AddLine ("Cat") & _
AddLine ("Product") & _
AddLine ("Symptoms") & _
AddLine ("Priorities")
If strDetails <> "" Then
strBody = strBody & vbCrLf & strDetails
End If
Set objForward = Item.Forward
objForward.Body = strBody
Item.Close olDiscard
End Sub
added, using a Post Form in Outlook 2003, to a non-Outlook client. The
attachments are not being delivered. I currently do not have any code
included in the script for the form that handles attachments. What do I need
to do to for the users to be able to send an attachment that might be saved
on the network, in our document management system, or on their local machine,
with the form? The message control is on the form. Below is part of the code
for the form that sends the message in plain-text. What steps do I take to
get this to work? Thanks!
Sub cmdSubmit_Click ()
Dim strDetails
Dim objForward
On Error Resume Next
strDetails = Item.Body
Item.BodyFormat = 1
strBody = AddLine ("Subject") & _
AddLine ("Locations") & _
AddLine ("Dept.") & _
AddLine ("Phone Number") & _
AddLine ("Cat") & _
AddLine ("Product") & _
AddLine ("Symptoms") & _
AddLine ("Priorities")
If strDetails <> "" Then
strBody = strBody & vbCrLf & strDetails
End If
Set objForward = Item.Forward
objForward.Body = strBody
Item.Close olDiscard
End Sub