Hi, <BR><BR>I am getting the following error on line "objMsg.Send" when I try to send an email...when I use this code to send emails to one malbox its fine, however, when I try alternative mailboxes and set the return receipt it fails.<BR><BR>I am using Outlook 98..I have researched this alot and I&#039;m told that it may be an Access Problem.<BR>The anonymous account is set on this file .<BR><BR>Any ideas?<BR><BR>Error:<BR>Collaboration Data Objects error &#039;000043ed&#039; <BR><BR>[Collaboration Data Objects - [E_FAIL(80004005)]] <BR> <BR><BR><BR>Function SendEmail1(From, Receiver, CC, BCC, Subject, Message, ReturnFlag, EmailType, ErrMsg)<BR> Dim strProfileInfo<BR> Dim objSession, objFolder, objMessages,objMsg, objRecipients<BR> Dim ReceiverArray, CCArray, i<BR><BR> strProfileInfo = Application("Mailbox")<BR><BR><BR> If NeedDebug Then<BR> Response.write "EmailType" & EmailType & "<BR>"<BR> Response.write "strProfileINfo" & strProfileInfo & "<BR>"<BR> Response.write "From" & From & "<BR>"<BR> Response.write "To" & Receiver & "<BR>"<BR> Response.write "CC" & Cc & "<BR>"<BR> Response.write "Subject" & Subject & "<BR>"<BR> Response.write "Message" & Message & "<BR>"<BR> Response.write "ReturnFlag" & ReturnFlag & "<BR>"<BR> Response.write "EmailType" & EmailType & "<BR>"<BR> End If<BR> <BR> Set objSession = CreateObject("MAPI.Session")<BR> objSession.Logon "", "", False, True, 0, True, strProfileInfo<BR><BR> Set objFolder = objSession.Outbox <BR> Set objMessages = objFolder.Messages<BR> Set objMsg = objMessages.Add <BR> objMsg.Subject = Subject<BR> objMsg.Text = Message<BR> objMsg.Importance = 1 <BR> objMsg.ReadReceipt = ReturnFlag<BR><BR> Set objRecipients = objMsg.Recipients<BR> <BR> ReceiverArray = Split(Receiver,";")<BR> For i =0 to UBound(ReceiverArray)<BR> If ReceiverArray(i) &#060;&#062; "" Then<BR> objRecipients.Add , "SMTP:"& ReceiverArray(i), 1<BR> objRecipients.Resolve<BR> End If<BR> Next<BR><BR> If CC &#060;&#062; "" Then<BR> CCArray = Split(CC,";")<BR> For i =0 to UBound(CCArray)<BR> If CCArray(i) &#060;&#062; "" Then<BR> objRecipients.Add , "SMTP:"& CCArray(i), 2<BR> objRecipients.Resolve<BR> End If<BR> Next<BR> End If<BR> <BR> objMsg.Send<BR> <BR> If err.number &#060;&#062; 0 then<BR> ErrCode = -1<BR> Else<BR> ErrCode = 0<BR> End If<BR><BR> objSession.Logoff<BR> Set objSession = Nothing<BR> Set objMessages = Nothing<BR> Set objFolder = Nothing<BR> Set objMsg = Nothing<BR> Set objRecipients = Nothing<BR> <BR> SendEmail1 = ErrCode <BR>End Function