[VB 6] Spedire un'email senza mittente.

[GoldEmish]

Ciao, ripropongo una domanda che avevo fatto tempo fa per quando dovevo mandare un allegato.
Ora non mi interessa l'allegato, ma mi interessa che questo programma invii email senza bisogno di Outlook o qualcosa del genere. Non è importate cosa ci sia sul mittente, l'importante è che spedica un'email con un certo testo.
Con Winsock avevo fatto qualcosa, ma non era proprio quello che volevo io.
Avete mai visto niente del genere?
Grazie,ciao

[xegallo]

spiega meglio cosa intendi perchè quello che è scritto nel titolo non corrisponde a ciò che chiedi

[GoldEmish]

un programma che spedisca le email senza MAPI o Outlook ecc ma con Winsock.

[saraX]

Io ho trovato m. interessante questo ...
pure in italiano! wow!!!
Pero' il mittente c'è...
ciao, Sara.

[macse]

come ha postato saraX se non vuoi utilizzare MAPI o ti butti su componenti preconfezionati: vedi Aspem@il della Persist Software oppure ti cerchi in rete il protocollo SMTP, e tramite winsock fai quello che fanno Outlook, le MAPI e tutti i componenti... chiami direttamente il Server SMTP e parli con lui.

macse

[GoldEmish]

E' proprio quello che ho cercato.
COmandi SMTP tramite winsock.

Il problema è che nn riesco a inviare il comando MAIL:

se scrivo
"MAIL FROM:<antonio@server.it>"
mi ritorna un errore 501 cioè parametro di MAIL nn valido.
stessa cosa se scrivo
"MAIL FROM:antonio@server.it"

Stesso problema anche se vado a comandi da riga di comando con telnet

Cmq l'email senza mittente riesco a mandarla, perchè
"MAIL FROM:<>"
è l'unico modo per far partire MAIL FROM...

[macse]

Penso che tu lo sappia già ma è indispensabile che l'indirizzo email che metti nel MAIL FROM sia esistente perchè il server interroga il server che hai scritto... non penso che cerchi l'indirizzo specifico ma credo che se non esiste nemmeno il server...

[GoldEmish]

diciamo che è impossibili perchè ho provato a mettere anche se stesso.. (avrebbe dovuto interrogarsi) ma cmq nn va.

[saraX]

Io un po' di tempo avevo fatto così:
metti in una form
-7 txtBox di nome:
mittente, emailMittente, destinatario, emailDestinatario, oggetto, testoMail,risposteServer
-1 winsock di nome: winsock1
-1 cmndButton di nome: invia

aggiungi il code:

Option Explicit
Private risp As String

Private Sub invia_Click()
  Winsock1.Close
  Winsock1.RemotePort = 25
'questo server di sicuro esiste ed è funzionante, puoi cambiarlo con un altro funzionante
  Winsock1.RemoteHost = "smtp.tiscali.it" 
  Winsock1.Connect

  Do Until Winsock1.State = False '7=connected
      DoEvents
  Loop
End Sub

Private Sub Winsock1_Connect()
  With Winsock1
    .SendData "HELO " & Winsock1.LocalIP & vbCrLf
    .SendData "MAIL FROM:<" & Trim$(emailMittente.Text) & ">" & vbCrLf
    .SendData "RCPT TO:<" & Trim$(emailDestinatario.Text) & ">" & vbCrLf
    .SendData "DATA" & vbCrLf
    .SendData "FROM: " & mittente.Text & vbCrLf
    .SendData "TO: " & destinatario.Text & vbCrLf
    .SendData "SUBJECT: " & oggettoMail.Text & vbCrLf
    .SendData vbCrLf
    .SendData testoMail.Text & vbCrLf
    .SendData "." & vbCrLf
    .SendData "QUIT" & vbCrLf
  End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Winsock1.GetData risp
  risposteServer.Text = risposteServer.Text & risp '& vbCrLf
  If InStr(1, risp, "221") Then ' vuol dire che il server ha risposto con il messaggio di saluto
    MsgBox "E-Mail inviata con successo"
  End If
End Sub

mi sembra che però fosse necessaria la connessione al medesimo server (nella fattispecie dovresti essere connesso a tiscali) ricordo che funzionava anche con l'SMTP di libero, se non è cambiato nulla.
Ciao,
Sara.

[macse]

non so cosa dire... io ho provato prima di scriverti e mi sono spedito una email da smtp.tele2.it ad un server mio e come mittente un'indirizzo di hotmail...
e tutto è andato a buon fine.