Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Send e-mail with CDO
Hi! I have a macro in excel that was working to send e-mail. But when i
upgraded the office from 2002 to office 2003, the code stop working. On the instruction: Config.Fields.Update i got the error: "Fields update failed. For further information, examine the Status property of individual field objects. " Err: 3749 Status: 262155 (Field Sendusing) Anybody knows if i have to update any component? Apparently, there is some problem with the method cdoSendUsingExchange. If i change to cdoSendUsingPickup or cdoSendUsingPort the error will not work. But i have to send through exchange. Thanks in advance. Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoMailBox = "http://schemas.microsoft.com/cdo/configuration/mailboxurl" sMailboxURL = "http://servidor/exchange/XXXXXX/Caixa%20de%20saĆ*da/" ' Create message and configuration objects. Set Msg = CreateObject("CDO.Message") Set Config = CreateObject("CDO.Configuration") ' Get the message configuration object. Set Config = Msg.Configuration ' Set the sendusing field to 'cdoSendUsingExchange'. Config(cdoSendUsingMethod) = 3 ' Set the mailboxurl field to the specified mailbox URL. Config(cdoMailBox) = sMailboxURL ' Update the fields. Config.Fields.Update ' Set the To, From, Subject, and TextBody fields on the message. Msg.To = pstrDestinatario Msg.FROM = " Msg.Subject = pstrAssunto Msg.HTMLBody = pstrMensagemHtml Msg.Send |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Bypass: A program is trying to send mail using Item.Send prompt | Excel Discussion (Misc queries) | |||
Send an e-mail | Excel Discussion (Misc queries) | |||
Send e-mail | Excel Discussion (Misc queries) | |||
Send FORM by mail | Excel Programming | |||
Send Mail | Excel Programming |