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!
