Cdosys

[fiorentinese]

Salve premetto che capisco poco o niente di asp.
Io tramite CDONT con le funzioni indicate sotto, invio delle email.
Ora il mio provaider e' cambiato e mi hanno indicato inidicato che devo usare il CDOSYS
potreste dirmi come posso adattare queste funzioni con questa libreria???
Ringrazio tutti anticipatamente!

Function MISC__CDONTSInviaMail(_
pTIPO_MAIL, _
pFROM_MAIL, _
pTO_MAIL, _
pBCC_MAIL, _
pOGGETTO_MAIL, _
pCORPO_MAIL, _
pALLEGATI_MAIL _
)

Dim tmp_NumeroAllegati
Dim tmp_Inviato
Dim tmp_BCC
Dim objMailFx

tmp_BCC = ""

If IsArray(pALLEGATI_MAIL) Then
tmp_NumeroAllegati = Ubound(pALLEGATI_MAIL)
End If

tmp_Inviato = False

Set objMailFx = Server.CreateObject("CDONTS.NewMail")

Select Case pTIPO_MAIL

Case 1
'Email di solo testo
objMailFx.From = pFROM_MAIL
objMailFx.To = pTO_MAIL
If pBCC_MAIL <> "" Then
objMailFx.Bcc = tmp_BCC & pBCC_MAIL
Else
'objMailFx.Bcc = tmp_BCC
End If
objMailFx.Subject = pOGGETTO_MAIL
objMailFx.Body = pCORPO_MAIL
objMailFx.Send
tmp_Inviato = True

Case 2
'Email in formato HTML
objMailFx.From = pFROM_MAIL
objMailFx.To = pTO_MAIL
If pBCC_MAIL <> "" Then
objMailFx.Bcc = tmp_BCC & pBCC_MAIL
Else
'objMailFx.Bcc = tmp_BCC
End If

objMailFx.Subject = pOGGETTO_MAIL
For contaAllegati = 1 To tmp_NumeroAllegati
objMailFx.AttachURL pALLEGATI_MAIL(contaAllegati,1),pALLEGATI_MAIL(con taAllegati,2)
Next
objMailFx.BodyFormat = 0
objMailFx.MailFormat = 0
objMailFx.Body = pCORPO_MAIL
objMailFx.Send
tmp_Inviato = True
End Select

Set objMailFx = Nothing

MISC__CDONTSInviaMail = tmp_Inviato
End Function


Function MISC__CDOInviaMail(_
pTIPO_MAIL, _
pFROM_MAIL, _
pTO_MAIL, _
pBCC_MAIL, _
pOGGETTO_MAIL, _
pCORPO_MAIL, _
pALLEGATI_MAIL _
)

Dim tmp_NumeroAllegati
Dim tmp_Inviato
Dim tmp_BCC
Dim objMailFx

tmp_BCC = ""

If IsArray(pALLEGATI_MAIL) Then
tmp_NumeroAllegati = Ubound(pALLEGATI_MAIL)
End If

tmp_Inviato = False

Dim objMessage, objConfig

'Inizializza oggetti
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

'Configurazione:
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "mail.softhome.net"
objConfig.Fields(cdoSMTPServerPort) = 25000
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic
objConfig.Fields(cdoSendUserName) = "xxx"
objConfig.Fields(cdoSendPassword) = "xxx"
objConfig.Fields.Update
Set objMessage.Configuration = objConfig

'Crea messaggio
objMessage.To = pTO_MAIL
If pBCC_MAIL <> "" Then
objMessage.Bcc = tmp_BCC & pBCC_MAIL
Else
'objMessage.Bcc = tmp_BCC
End If
objMessage.From = """Vendesicamper"" <info@vendesicamper.com>"
objMessage.ReplyTo = "info@vendesicamper.com"
objMessage.Subject = pOGGETTO_MAIL
objMessage.TextBody = pCORPO_MAIL
'objMessage.HtmlBody = ""

'Invia
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing


MISC__CDOInviaMail = True
End Function

[michele.santoro]

Fai una piccola ricerca sul forum per parola chiave CDOSYS e troverai 1000 esempi.
Questo è uno !

[agenti]

vuoi trasformare da cdonts a cdosys ?

function invia_email(mittente,destinatario,oggetto,corpo)

Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds ("http://schemas.microsoft.com/cdo
/configuration/urlgetlatestversion") = True

mittente= mittente
destinatario = destinatario
oggetto = oggetto
messaggio = messaggio

With iMsg
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.HTMLBody = messaggio
on error resume next
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

end function

%>


per inviare:

<%
invia_email(mittente,destinatario,oggetto,corpo)
%>

sostituendo i parametri.
Saluti.

[fiorentinese]

salve, ora sto usando questa funzione ma mi da il seguente problema:
error '8004020e'

/_common/_include_lib/_lib_misc.asp, line 241

alla riga 241 c'è il send dell'email. Che tipo di problema può essere!!



Function MISC__CDOInviaMail(_
pTIPO_MAIL, _
pFROM_MAIL, _
pTO_MAIL, _
pBCC_MAIL, _
pOGGETTO_MAIL, _
pCORPO_MAIL, _
pALLEGATI_MAIL _
)

Dim tmp_NumeroAllegati
Dim tmp_Inviato
Dim tmp_BCC
Dim objMailFx

tmp_BCC = ""

If IsArray(pALLEGATI_MAIL) Then
tmp_NumeroAllegati = Ubound(pALLEGATI_MAIL)
End If

tmp_Inviato = False

Dim objMessage, objConfig

'Inizializza oggetti
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

'Configurazione:
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "mail.vendesicamper.com"
objConfig.Fields(cdoSMTPServerPort) = 25
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic
objConfig.Fields(cdoSendUserName) = "admin@vendesicamper.com"
objConfig.Fields(cdoSendPassword) = "vend!1230"
objConfig.Fields.Update
Set objMessage.Configuration = objConfig

'Crea messaggio
objMessage.To = pTO_MAIL
If pBCC_MAIL <> "" Then
objMessage.Bcc = tmp_BCC & pBCC_MAIL
Else
'objMessage.Bcc = tmp_BCC
End If
objMessage.From = """Vendesicamper"" <info@vendesicamper.com>"
objMessage.ReplyTo = "info@vendesicamper.com"
objMessage.Subject = pOGGETTO_MAIL
objMessage.TextBody = pCORPO_MAIL
'objMessage.HtmlBody = ""

'Invia
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing


MISC__CDOInviaMail = True
End Function