Ciao a tutti,
sapete dirmi come posso modificare questo codice in modo da poter aggiungere un allegato?
Private Sub Winsock1_Connect()
Winsock1.SendData "HELO" & vbCrLf
DoEvents
Winsock1.SendData "MAIL FROM: <prova@prova.it>" & vbCrLf
DoEvents
Winsock1.SendData "RCPT TO: <prova@prova.com>" & vbCrLf
DoEvents
Winsock1.SendData "DATA" & vbCrLf
DoEvents
Winsock1.SendData "Subject: Prova soggetto" & vbCrLf
DoEvents
Winsock1.SendData "From: prova@prova.it" & vbCrLf
DoEvents
Winsock1.SendData "To: prova@prova.com" & vbCrLf
DoEvents
Winsock1.SendData "" & vbCrLf 'Invii una stringa vuota
DoEvents
Winsock1.SendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf
DoEvents
Winsock1.SendData "." & vbCrLf
DoEvents
Grazie
