invio mail con CDOSYS [non ne va uno... :dhò:]

**ThePenguin** · 14-08-2006, 16:40

salve a tutti,

le sto provando tutte ma non c'è riscontro infatti i vari codici che io metto inviano le mail.. o almeno questo fanno credere perchè non danno errore il esecuzione, ma poi quando uno si aspetta di trovare la mail ecco che non arriva nulla nel client di posta.

codice:

Dim miaMail, strOggMail,strBodyMail
DIM iMsg, Flds, iConf

strOggMail = "Lettera" 

'Corpo del messaggio 
strBodyMail = "" 
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body> ecc"
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'indica smtp che usi per l'invio
Flds(cdoSMTPServer) = "smtp.aruba.it"
'indica la porta 
Flds(cdoSMTPServerPort) = 25
'indica eventuale autenticazione o lascia cdoAnonymous 
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = Destinatari 
   .From = "Servizio messaggi" 
   .Sender = "servizio...quello che vuoi"
   .Subject = strOggMail 
   .HtmlBody = strBodyMail
   .Send
End With

di solito uso questo e fino ad ora andava, ma adesso che si tratti di questo o di altri codice presi da discussioni sul cdosys lette nel forum non vanulla e io ci sto perdendo latesta...
qualcuno che magari ha il sito sul mio stesso isp che mi possa dare una mano...

a a proposito nella pagina asp dove recupero i valori del form e invio in testa ci metto

codice:

grazie mille!

**yro** · 14-08-2006, 18:00

boh io faccio così:

codice:

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = (strEmail)
MiaMail.To = "pippo@pippo.it"
'MiaMail.Cc = "gigi@gigi.it"
'MiaMail.Bcc = "pluto@pippo.it"
MiaMail.Subject = "oggetto"
MiaMail.HTMLBody = "testo email"
'MiaMail.AddAttachment "d:\inetpub\cartella\file.ext"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

e funziona su aruba... ma perche hai 2 variabili uguali per il corpo mail?? :master:

**ThePenguin** · 14-08-2006, 18:02

in che senso due variabili uguali x il corpo mail...

'Corpo del messaggio
strBodyMail = ""
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body> ecc"

è una sola che via via assume il codice html

**ThePenguin** · 14-08-2006, 18:06

anch'io stavo provando questo metodo proprio qualche attimo prima che postassi tu... anche se la mia sintassi sarebbe un po' più intrigata

codice:

  If (IndirizzoMit<>"") Then
    Destinatario1=IndirizzoMit
    If (Destinatario2<>"") Then
	  Set MiaMail = Server.CreateObject("CDO.Message")
	  MiaMail.From = "serviziomessaggi@xxxx.it"
	  MiaMail.To = Destinatario1
      MiaMail.Cc = Destinatario2
	  MiaMail.Subject = "Richiesta informazioni"
	  MiaMail.HTMLBody = strBodyMail 
	  MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
	  MiaMail.Fields.Update()
	  MiaMail.Send()
	  Set MiaMail = Nothing
	else
	  Set MiaMail = Server.CreateObject("CDO.Message")
	  MiaMail.From = "serviziomessaggi@xxxx.it"
	  MiaMail.To = Destinatario1
	  MiaMail.Subject = "Richiesta informazioni"
	  MiaMail.HTMLBody = strBodyMail 
	  MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
	  MiaMail.Fields.Update()
	  MiaMail.Send()
	  Set MiaMail = Nothing
	end if
  else
  end if
  If (IndirizzoMit="") Then
    If (Destinatario2<>"") Then
	  Set MiaMail = Server.CreateObject("CDO.Message")
	  MiaMail.From = "serviziomessaggi@rxxxx.it"
	  MiaMail.To = Destinatario2
	  MiaMail.Subject = strOggMail
	  MiaMail.HTMLBody = strBodyMail 
	  MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
	  MiaMail.Fields.Update()
	  MiaMail.Send()
	  Set MiaMail = Nothing
	else
	end if
  end if

ciao

**ThePenguin** · 14-08-2006, 21:07

ok ora io non so più che pesci pigliare, anche questa versione è abbastanza discutibile...
dunque va a metà, va perchè x andare va, ma qualcuno sa spiegarmi perchè si certe caselle di posta il messaggio arriva mentre su altre no e nello specifico delle varie caselle @tin.it che ho ce ne fosse una che fa arrivare il messaggio...

se qualcuno ha quelche buona idea me la proponga perchè io ci sto impazzendo...

grazie

**Mizushi** · 14-08-2006, 21:32

Non vorrei sbagliare ma da qualche parte ho letto che non è un problema del codice di invio email con CDOSYS.

Il problema è che il tuo Simple Mail Transfer Protocol (SMTP) non ha un Fully Qualified Domain Name (FQDN).

Oggi diversi Internet Service Provider (ISP) , tra cui risulta anche tin.it , hanno imposto ai loro SMTP di non accettare mail se l' SMTP da cui provengono non ha un FDQN valido.

In sostanza la tua macchina dovrebbe chiamarsi, ad esempio:

www.nomesito.it come "fully qualified domain name" in IIS/Default SMTP Virtual Server/Properties/Delivery/Advanced

**ThePenguin** · 14-08-2006, 21:36

Originariamente inviato da Mizushi
Non vorrei sbagliare ma da qualche parte ho letto che non è un problema del codice di invio email con CDOSYS.

Il problema è che il tuo Simple Mail Transfer Protocol (SMTP) non ha un Fully Qualified Domain Name (FQDN).

Oggi diversi Internet Service Provider (ISP) , tra cui risulta anche tin.it , hanno imposto ai loro SMTP di non accettare mail se l' SMTP da cui provengono non ha un FDQN valido.

In sostanza la tua macchina dovrebbe chiamarsi, ad esempio:

www.nomesito.it come "fully qualified domain name" in IIS/Default SMTP Virtual Server/Properties/Delivery/Advanced

capito xò ogni tanto una delle 3 caselle tin.it lo riceve il messaggio di prova il che mi fa pensare alla possibilità che si tratti di problemi di codice, ma non problemi in termini di invio visto che errori non ne da e il codice va, ma di qualche altra grana come la possibilità che l'hosting digerisca male quel codice o altro.

**Mizushi** · 14-08-2006, 21:48

Ma gli hai dato retta ???

Originariamente inviato da Miguel Rivero
Personalmente uso questo, senza problemi:

codice:

Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
 
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost" 'qui ci devi mettere ISP
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

messaggio = messaggio & VBcrlf & "<font face=""Verdana"" size=""1"">[b]Messaggio 

"

With objMessage
 .To       = "indirizzo@destinatario.com"
 .From     = "indirizzo@mittente.com"
 .BCc      = "indirizzo@copia-conoscenza.com"
 .Subject  = "Oggetto msg"
 .HtmlBody = messaggio
 .Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

**ThePenguin** · 14-08-2006, 21:54

si ma non funzionava...

**Mizushi** · 15-08-2006, 10:16

Stranissimo

ho provato questo codice su diversi pc e funziona molto meglio di altri disponibili in rete, ma come lo hai modificato????

Sei in server hosting o in server locale ?

Discussione: invio mail con CDOSYS [non ne va uno... :dhò:]

Strumenti discussione

Ricerca discussione

Visualizza

invio mail con CDOSYS [non ne va uno... :dhò:]

Permessi di invio