Newsgroup: it.comp.lang.visual-basic
Titolo: Invio e-mail per cc o bcc

Sono giorni che ci provo ma non ci riesco ancora.
Dagli esempi trovati in rete ho creato nella mia applicazione vb una
funzione per inviare e-mail in formato HTML con i vari attributi. A me
interesserebbe soprattutto poter specificare i destinatari in CC e a volte
BCC. Il problema è che l'e-mail viene ricevuta dal destinatario specificato
nel campo TO ma non da quello specificato in CC e/o BCC. Come mai? Dove
sbaglio???
Grazie
Sub SendEmail(MailServerName As String, FromName As String, FromEmailAddress
As String, ToNametxt As String, ToEmailAddress As String, ToEmailBccAddress
As String, EmailSubject As String, EmailBodyOfMessage As String)
    Winsock1.LocalPort = 0 ' Setta la porta locale a zero
    If Winsock1.State = sckClosed Then ' Verifica che il socket sia chiuso
           DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm
YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600"
           first = "MAIL FROM: " + FromEmailAddress + vbCrLf ' Indirizzo
E-Mail inviante
           Second = "RCPT TO: " + ToEmailAddress + vbCrLf ' e-mail ricevente
           Eighth = ""
           Eighth = Eighth + "FROM: " + FromName + vbCrLf ' Inviante
           Eighth = Eighth + "DATE: " + DateNow + vbCrLf ' Data di invio
           Eighth = Eighth + "TO: " + ToNametxt + vbCrLf ' Ricevente
           Eighth = Eighth + "CC: " + ToEmailBccAddress + vbCrLf ' Ricevente
CC
           Eighth = Eighth + "BCC: " + ToEmailBccAddress + vbCrLf '
Ricevente BCC
           Eighth = Eighth + "SUBJECT: " + EmailSubject + vbCrLf ' Soggetto
E-mail
           Eighth = Eighth + "X-Mailer: JobTrakker Mailing" + vbCrLf '
Mailing
           Eighth = Eighth + "Mime-Version: 1.0" + vbCrLf
           Eighth = Eighth + "Content-Type: text/html" + vbCrLf
           Eighth = Eighth + vbCrLf
           Eighth = Eighth + EmailBodyOfMessage & Chr(13) & Chr(10) &
Chr(13) & Chr(10) ' Messaggio E-mail
           Winsock1.protocol = sckTCPProtocol ' Setta il protocollo per
l'invio
           Winsock1.RemoteHost = MailServerName ' Setta l'indirizzo del
server
           Winsock1.RemotePort = 25 ' Setta la porta SMTP
           Winsock1.Connect ' Avvia la connessione
           WaitFor ("220")
           loggaInfo "Connessione in corso...."
           Winsock1.SendData ("HELO 
www.mioserver.com
" + vbCrLf)
           WaitFor ("250")
           loggaInfo "Connesso"
           Winsock1.SendData (first)
           loggaInfo "Sto inviando il messaggio"
           WaitFor ("250")
           Winsock1.SendData (Second)
           WaitFor ("250")
           Winsock1.SendData ("DATA" + vbCrLf)
           WaitFor ("354")
           Winsock1.SendData (Eighth + vbCrLf)
           Winsock1.SendData ("." + vbCrLf)
           WaitFor ("250")
           Winsock1.SendData ("QUIT" + vbCrLf)
           loggaInfo "Disconnessione"
           WaitFor ("221")
           Winsock1.Close
    Else
           loggaInfo "Il socket non risulta Chiuso ma: " &
Str(Winsock1.State) & "!"
    End If
End Sub

 Eighth = Eighth + "BCC: " + ToEmailBccAddress + vbCrLf ' Ricevente BCC
Magari usando una volta ToEmailCcAddress ed una volta ToEmailBccAddress
anziché entrambe le volte ToEmailBccAddress il comportamento migliora...
Ciao.
Mauro 

 ha scritto nel messaggio
news:IhmHf.89372$eD5.1...@twister2.libero.it...


Magari è ora che passi al vb .net,
system.web.mail