invio mail multiplo

[lucavizzi]

Buongiorno,
uso questo codice per inviare via mail una pagina asp

Dim iMsg, iConf, Flds 

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message") 
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration") 
'Impostazione delle configurazioni per l'invio remoto 
Set Flds = iConf.Fields 
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 

With iMsg 


.From = "info@mail.it"
.To = "mail@email.it"
.Subject = "posta per la Sig.ra "&nome&" "&cognome


'Invio di una pagina web 
.CreateMHTMLBody "http://www.xxxx.it/mail_ita.asp?nome="&nome&"&cognome="&cognome
.AddAttachment "D:\Inetpub\webs\xxxxxx\yyyyyyyyyyyyyyyy.pdf"

'Invia l'email 
.Send() 

end with 

se io volessi inviare successivamente una seconda pagina asp ad un altro indirizzo come dovrei modificare il codice?

Ho provato con
Dim iMsg2, iConf2, Flds2

usando quindi due with
ma mi da errore

mi da errore anche se uso un solo with con all'interno il due blocchi di codice distinti...

Grazie
Luca

[lucavizzi]

mi da errore sul secondo
.CreateMHTMLBody :master:

[lucavizzi]

Dim iMsg, iConf, Flds 

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message") 
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration") 
'Impostazione delle configurazioni per l'invio remoto 
Set Flds = iConf.Fields 
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 

With iMsg 


.From = "info@xxx.it"
.To = "aaa@email.it"
.Subject = "Oggetto"

'Invio di una pagina web 
.CreateMHTMLBody "http://www.xxx.it/mail_ita.asp?nome="&nome&"&cognome="&cognome
.AddAttachment "D:\Inetpub\webs\xxx\yyy.pdf"

'Invia l'email 
.Send() 

end with

set Flds = Nothing 
set iConf = Nothing 
set iMsg = Nothing 


Dim iMsg2, iConf2, Flds2 

'Crea l'oggetto email 
Set iMsg2 = CreateObject("CDO.Message") 
'Crea l'oggetto configurazione 
Set iConf2 = CreateObject("CDO.Configuration") 
'Impostazione delle configurazioni per l'invio remoto 
Set Flds2 = iConf2.Fields 
Flds2("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 

With iMsg2 

.From = "mailer@xxx.it"
.To = "posta@aaa.it"
.Subject = "oggetto2"


'Invio di una pagina web 
.CreateMHTMLBody "http://www.xxx.it/mail_dddd.asp
'Invia l'email 
.Send() 

end with

set Flds2 = Nothing 
set iConf2 = Nothing 
set iMsg2 = Nothing 

mi da errore alla riga del secondo .CreateMHTMLBody

si può ovviare in qualche modo?

[ubbicom]

Prevedi un response.redirect dalla prima pagina che invia la prima email alla seconda pagina ( una nuova pagina asp ) per inviare il secondo messaggio; puoi anche passare le variabili che ti interessano in querystring da una pagina all'altra e recuperarle ed utilizzarle di conseguenza.

[lucavizzi]

ci avevo già pensato, è che non mi sembra molto elegante come soluzione...

possibile che non si possano inviare due mail dalla stessa pagina?

Grazie cmq male che vada farò così

[lucavizzi]

qualche suggerimento?

[ubbicom]

Originariamente inviato da lucavizzi
qualche suggerimento?

Forse così:

.CreateMHTMLBody2

[lucavizzi]

non credo

[ubbicom]

Originariamente inviato da lucavizzi
non credo

[lucavizzi]