Inviare una mail con VB

[leon84]

Salve ragazzi,
il metodo più veloce e più pratico per inviare una mail con VB qual è ?

[Massi91]

io ho sempre usato il metodo tradizionale col winsock, e mi sembra sempre il più efficente (oltre ad essere l'unico che conosco)

[leon84]

Originariamente inviato da Massi91

io ho sempre usato il metodo tradizionale col winsock, e mi sembra sempre il più efficente (oltre ad essere l'unico che conosco)

Mi spiegheresti o mi posteresti qualcosa ????

[cionci]

Prova questo...

[leon84]

Originariamente inviato da cionci

Prova questo...

L'ho provato ..... funziona ma mi sballa la data ... mi riporta sempre 01/01/1970 ... Da cosa dipende ?????

[cionci]

Quale data scusa ? A me funziona benissimo...

[leon84]

Originariamente inviato da cionci

Quale data scusa ? A me funziona benissimo...

Intendo che quando ricevo la mail col client me la data 01/01/1970

[cionci]

Strano...a me da la data giusta Prova con un altro server di posta... Tra l'altro la data non è presente nel protocollo SMTP...la mette il server... Non è che hai la data del tuo PC impostata così per sbaglio ?

[leon84]

Originariamente inviato da cionci

Strano...a me da la data giusta Prova con un altro server di posta... Tra l'altro la data non è presente nel protocollo SMTP...la mette il server... Non è che hai la data del tuo PC impostata così per sbaglio ?

No la data del mio pc è esatta ...
Cmq ho utilizzato un altro codice molto più snello e ho notato che fa la stessa cosa ...

Il codice è questo :

Public Sub Invia_Mail(mittente As String, destinatario As String, oggetto As String, messaggio As String, mailserver As String)
sFrom$ = mittente
sTo$ = destinatario
sSubject$ = oggetto
sMessage$ = messaggio

' need SMTP server to route message thru, 25 (SMTP)
Winsock1.Connect mailserver, 25

Do While Winsock1.State <> sckConnected: DoEvents: Loop


sendMsg "HELO " & "Peaches"
sendMsg "MAIL FROM: <" & sFrom & ">"
sendMsg "RCPT TO: <" & sTo & ">"
sendMsg "DATA"


m$ = m$ + "From: <" + sFrom + ">" + vbCrLf
m$ = m$ + "To: <" + sTo + ">" + vbCrLf
m$ = m$ + "Subject: " + sSubject$ + vbCrLf
m$ = m$ + "Date: " + Format(Now, Format(Now, "General Date")) + vbCrLf
m$ = m$ + "MIME-Version: 1.0" + vbCrLf
m$ = m$ + "Content-Type: text/plain; charset=us-ascii" + vbCrLf + vbCrLf

m$ = m$ + sMessage$ + vbCrLf + vbCrLf + "." + vbCrLf

sendMsg m$ + "QUIT"

Winsock1.Close


End Sub

Ho notato che se vario il formato della data mi varia l'ora sul client ... Ho impostato come formato il seguente :

Format (Now,"General Date")

il giorno me lo azzecca ma l'ora no ... e cmq non sono tanto sicuro che la data la metta il mail server ma chi compone la mail ... in questo caso ho la prova evidente ... anche se può essere che qualche mail server la rimpiazzi con la sua ....

Ora su MSDN ci sono diversi formati di dati ... credo che il tutto sta nell'individuare una sorta di formato internazionale ... mah ....

[cionci]

Ok...se la metti così mette la tua, ma non è obbligatoria...il programma che ti ho dato io non la mette...

[leon84]

Originariamente inviato da cionci

Ok...se la metti così mette la tua, ma non è obbligatoria...il programma che ti ho dato io non la mette...

E allora come mai Thunderbird si comporta in quel modo ?

[cionci]

Non ne ho idea...ma si comporta così con entrambi i programmi ?

[leon84]

Originariamente inviato da cionci

Non ne ho idea...ma si comporta così con entrambi i programmi ?

Si fa lo stesso sia col codice che ho postato io sia con il progetto che mi hai fornito te ...

[cionci]

Allora non ne ho idea...hai provato a leggere la mail con un altro client di posta ?

[leon84]

Originariamente inviato da cionci

Allora non ne ho idea...hai provato a leggere la mail con un altro client di posta ?

No ... provo e ti faccio sapere ...