Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mail über Winsock und einem Connect über einen SMTP Server mit PASS + User
Autor: michaelm1977
Datum: 11.08.05 10:49
Hallo zusammen, folgendes Problem benötige eine einfach Variante des E-Mail-Sendens ohne Form und tralala. der VB Code soll an gewissen stellen E-Mails an mich raushauen. Auf grund diesen kann ich dann reagieren. Es bedarf keiner UserForm oder MsgBoxn Mein Problem bei dem Code unten ist, das sich die App beim Schließen der Verbindung aufhängt und auch keine Mail raus geht. ich kann die normalen Functionen aus dem Netzt nicht anweden da ich mich Identifizieren muß beim SMTP. da es sichnur um ein System-Mailversand handelt brauche ich auch keine Mails abrufen. Deswegen suche ich eine Variante vo ich die Verbindung zum SMTP aufmache und dann die Mail rausschiebe. Sollte dabei irgendwo ein Fehler auftreten muß der abschnitt abgeborchen werden. bzw move next aber das is nicht das Problem. Mein Problem ist, dass ich einfach nicht an den SMTP rankomme und die Verbindung einfach aber stabil ohne aufhängen beende. Es wäre supe wenn jemand in dem Bereich ne Ahnung hat un mir helfen könnte. Vieleicht habe ich dann beim nächten mal einen schlauen Einfall Gruß michael Private Const Host As String = "xx.xxx.xxx" Private Const Account1 As String = "xxx@xxx.xx" Private Const Account2 as String = "yyy@yyy.yy" Private Const Password As String = "xxxxxx" Private Const Port As Long = 0000 Private function asendMail() Dim Sender, Receiver, Mail, Body, Subject as String Sender= "mail from: " & Account1 & vbCrLf Receiver = "rcpt to: " & Account2 & vbCrLf Subject = "Hello World" Body = "Hello World" Mail ="" Mail = Mail & "From: " & Account1 & " <" & FromMail & ">" Mail = Mail & vbCrLf & "Date: " & Format(Date, "Ddd") Mail = Mail & ", " & Format(Date, "dd Mmm YYYY") & " " Mail = Mail & Format(Time, "hh:mm:ss") & " +0100" & vbCrLf Mail = Mail & "X-Mailer: Visual Basic" Mail = Mail & vbCrLf & "To: " & Account2 & " <" & ToMail & ">" Mail = Mail & vbCrLf & "Subject: " & Subject & vbCrLf Mail = Mail & vbCrLf & Body & vbCrLf & vbCrLf & "." & vbCrLf Winsock1.LocalPort = 0 Winsock1.Connect Host, Port Winsock1.SendData "user " & Account & vbCrLf Winsock1.SendData "pass " & Password & vbCrLf Winsock1.SendData ("Hello World " & Domain & vbCrLf) Winsock1.SendData (Sender) Winsock1.SendData (Receiver) 'Winsock1.SendData ("Data" & vbCrLf) Winsock1.SendData (Mail) Winsock1.SendData "quit" & vbCrLf Winsock1.Close End function

Mail über Winsock und einem Connect über einen SMTP Server m...	986	michaelm1977	11.08.05 10:49
Re: Mail über Winsock und einem Connect über einen SMTP Serv...	598	Wolfgang	11.08.05 10:58
Re: Mail über Winsock und einem Connect über einen SMTP Serv...	590	michaelm1977	11.08.05 11:15
Re: Mail über Winsock und einem Connect über einen SMTP Serv...	615	Wolfgang	11.08.05 11:22
Re: Mail über Winsock und einem Connect über einen SMTP Serv...	619	michaelm1977	11.08.05 13:58
Re: Mail über Winsock und einem Connect über einen SMTP Serv...	599	michaelm1977	11.08.05 18:51

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen