2009-02-24 16 views
5

Sto cercando di ottenere un'e-mail inviata utilizzando ASP classic e sto avendo problemi con la configurazione SMTP.Configurazione SMTP SendUtilizzo del valore di configurazione con ASP-Classic

L'errore:

CDO.Message.1 error '80040220' The "SendUsing" configuration value is invalid.

Il Codice (per l'e-mail in sé):

Set objMsg = Server.CreateObject("CDO.Message") 
objMsg.From  = "[email protected]" 
objMsg.To  = "[email protected]" 
objMsg.Subject = "Procurement Ally Update" 
objMsg.TextBody = strBody 

Il Codice Ho provato a configurare con (pt 1):

sch = "http://schemas.microsoft.com/cdo/configuration/" 
Set cdoConfig = CreateObject("CDO.Configuration") 
    With cdoConfig.Fields 
     .Item(sch & "smtpserver") = "127.0.0.1" 
     .update 
    End With 

Quello non ha funzionato, così ho provato:

objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMsg.Configuration.Fields.Update 

Anche questo non ha funzionato.

(Sì, non lo diede a vedere, ma alla fine c'è una chiamata a objMsg.Send)

Per quanto posso dire, il servizio SMTP scatole locali è in esecuzione e pronto a fare il suo dovere.

Qualcuno può aiutare?

risposta

16

Se si specifica uno smptserver, assicurarsi di impostare il campo 'sendusing' a 2 (o cdoSendUsingPort) così:

objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMsg.Configuration.Fields.Update 
Problemi correlati