Error sending e-mail using MAPI
I am using MAPI controls to send e-mails from my visual basic appplication.
All these days my e-mails were having only attachments, no message in the
e-mail body and the application was working fine. Recently I added message
to e-mail body of about 220 chars in length, from then it is giving following
error while sending the message from the application.
:o An unknown error has ocuured. Subject ...........
........., Account:......, Server:......, Protocol: SMTP, Server
Response: '550 This message contains a broken MIME container (uuencoded
line length is not a multiple of 4 characters).', Port: 25, Secure(SSL): No,
Server Error: 550, Error Number: 0x800CCC69
The above message appears in OUTLOOK EXPRESS Error window.
Please suggest a solution?
Re: Error sending e-mail using MAPI
You should post your code when you have a problem that you want someone to fix. It's hard to guess what you have.
Re: Error sending e-mail using MAPI
My code is like this
VB Code:
Private Sub sendMsg()
Private Sub sendMsg()
MAPISess.LogonUI = True
MAPISess.DownLoadMail = False
MAPISess.SignOn
MAPIMess.SessionID = MAPISess.SessionID
'Open and Read Sequential File Containing File Name and E Mail Address(Created By another Program)
Open "C:\temp\temp.abc" For Input As #1
Do While Not EOF(1)
Input #1, file1,file2,email_addr,file_path
'Clear Send Buffer
MAPIMess.Compose
MAPIMess.MsgIndex = -1
'Define Recipients Address
MAPIMess.RecipIndex = 0
MAPIMess.RecipAddress = email_addr
MAPIMess.RecipType = 1
'Define Attachmanents (Data File)
MAPIMess.AttachmentIndex = 0
MAPIMess.AttachmentName = Trim(file1)
MAPIMess.AttachmentPathName = file_path
MAPIMess.AttachmentType = mapData
MAPIMess.AttachmentIndex = 1
MAPIMess.AttachmentName = file2
MAPIMess.AttachmentPathName = file_path
MAPIMess.AttachmentType = mapData
'Define Subject
MAPIMess.MsgSubject = "some subject"
MAPIMess.MsgNoteText = " We herewith attach a file containing " & _
"Ref. No.: 5658/A57757/13232/1 & _
" dated " & Format(aDate, "DD/MM/YYYY") & "." & vbCrLf & _
"We request you to process the file and give us feedback," & vbCrLf & " " & vbCrLf & "Manager," & vbCrLf & "xyz Ltd."
'Send Message
MAPIMess.Send
End If
Loop
Close #1
MAPISess.SignOff
MsgBox "Process over"
End Sub
Re: Error sending e-mail using MAPI
