(xegallo... non c'era tutta questa necessità di chiudere l'altro topic visto che qui parlavo di un problema nell'invio dell'email e in quell'altro di email con allegato... poteva tornare più utile diviso in questo modo... ma contento tu...)

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