|
-
Aug 27th, 2005, 01:21 AM
#1
Thread Starter
New Member
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.
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?
-
Aug 27th, 2005, 01:24 AM
#2
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.
-
Aug 27th, 2005, 03:51 AM
#3
Thread Starter
New Member
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
-
Aug 27th, 2005, 04:07 AM
#4
Re: Error sending e-mail using MAPI
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
|