|
-
Jun 18th, 2000, 09:57 PM
#1
My program selects files from the certain directory, attaches them to email message and sends it. It works fine except one problem. If there are attachments it adds spaces to the beginning of message so it looks like
"A t t ached..." instead of "Attached...". It works fine if there is no attachments. Has anybody had this problem before? Here is my code.
'******************************
With MAPIMessages1
.MsgIndex = -1
.Compose
.RecipAddress = "[email protected]"
.ResolveName
.MsgSubject = "Proposal For " & strTitle
.MsgNoteText = "Attached is a proposal package"
.MsgNoteText = .MsgNoteText & " for " & strSOW_Reference_Number & ""
.MsgNoteText = .MsgNoteText & " under contract " & strContract_Number & ""
.MsgNoteText = .MsgNoteText & "."
'Get all files from the list and attach them to the email.
For count = 0 To lstAttachment.ListCount - 1
AttachmentFile = path & "\" & lstAttachment.List(count)
.AttachmentIndex = nIndex
.AttachmentPathName = AttachmentFile
.AttachmentPosition = nIndex
nIndex = nIndex + 1
Next count
.Send
End With
MAPISession1.SignOff
'*********************************
Thank you!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|