| Dart Home | PowerTCP Mail for ActiveX | Custom Development | Reply | PowerTCP Mail for ActiveX Topics | Forums |
| Author | Forum: PowerTCP Mail for ActiveX Topic: Unable to put a message into Sent Items folder |
| User477 From: Fremont, CA USA Posts: 6 Member Since: 10/15/01 |
posted September 16, 2003 7:04 PM I am creating a message object with attachment and want to put in "Sent Items" folder. When I do this step and if the attachment size is greater than 767 bytes (total message size of 1480 bytes), I get an error. 10060:The connection has been dropped because of a network failure or because the peer system failed to respond. Also caused when Connect, Send, Receive, Fill or Close methods are used with a Timeout parameter and the operation fails to complete within the specified number of milliseconds. Once this error occurs, any method call to Server.CreateObject(Dart.Imap) fails with this error. A trappable error (C0000005) occurred in an external object. The script cannot continue running. This even happens for message object without attatchment, but with size more than 1200 bytes. Can any one advice what to do? Note: We upgraded from Exchange 5.5 to Exchange 2000 Here is the asp page trying to copy the message into sent items folder ------------------------------------------------------------------------------------------- <% on error resume next Sub ReportError(strMsg) Dim strMessage strMessage = strMsg if Err.number <> 0 then strMessage = strMessage & "<br>" & err.number & ":" & Err.Description & "<br>" end if Response.Write strMessage End Sub Function CreateMailMessage () On error resume next set CreateMailMessage = Nothing Dim p1 Err.Clear Set p1 = Server.CreateObject("Dart.Part") if (Err.number<> 0) then call ReportError("create part failed") exit function end if p1.Data = "Email body" p1.Header.Clear p1.Header.Add 22, "text/html; charset=""utf-8""" err.Clear Set MsgObj = Server.CreateObject ("Dart.Message") if (Err.number<> 0) then call ReportError("create message failed") exit function end if MsgObj.Content = "" MsgObj.To.Add "someone@soffront.com" MsgObj.Cc.Add "" MsgObj.Bcc.Add ""'add bcc here MsgObj.From = "someother@soffront.com" MsgObj.Subject = "Test Subject" err.Clear MsgObj.Parts.Add p1, 0 if (Err.number<> 0) then call ReportError("add part failed") exit function end if MsgObj.Header.Add 22, "multipart/mixed" MsgObj.AddAttachment "c:\test1.txt" ' you must have this attachment file in c:\ if (Err.number<> 0) then call ReportError("add attachment1 failed") exit function end if 'MsgObj.AddAttachment "c:\test2.txt" ' you must have this attachment file in c:\ 'if (Err.number<> 0) then ' call ReportError("add attachment2 failed") ' exit function 'end if Set CreateMailMessage = MsgObj End Function Function AddToSendFolder(objMessage) on error resume next Err.Clear Set DartImapObjForNewCompose = Server.CreateObject ("Dart.Imap.1") if (Err.number<> 0) then call ReportError("create failed") exit function end if DartImapObjForNewCompose.Timeout = 30000 DartImapObjForNewCompose.Login "mail server","login name","password" if (Err.number<> 0) then call ReportError("login failed") exit function end if DartImapObjForNewCompose.Refresh if (Err.number<> 0) then call ReportError("refresh failed") exit function end if For Each Mailbox In DartImapObjForNewCompose.Mailboxes If ucase(Mailbox.Name) = "SENT ITEMS" Then call OutputToLog(objMessage.Content) Mailbox.Add objMessage.Content if (Err.number<> 0) then call ReportError("add for '" & Mailbox.Name & "' failed") exit function end if exit for End If Next Set DartImapObjForNewCompose = Nothing End Function Dim objMessage set objMessage = Nothing set objMessage = CreateMailMessage() if not objMessage is nothing then Call AddToSendFolder(objMessage) else call reportError("invalid object") end if %> ------------------------------------------------------------------------------------------- |
Tony Priest From: Utica, NY USA Posts: 8466 Member Since: 04/11/00 |
posted September 17, 2003 9:27 AM I'll be sending you a dll compiled with the latest code. It seems to work if I use your asp code. Please try the DLL I send you and let me know: 1) if the original problem is fixed 2) no new problems have been introduced |
| Reply | PowerTCP Mail for ActiveX Topics | Forums |
This site is powered by
PowerTCP WebServer for ActiveX
|