Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: SendMail
Autor: Denyo
Datum: 14.11.01 09:32
Hab jetzt den Teil geändert. (Hoffentlich war das überhaupt der richtige) Hat aber immernoch den gleichen Fehler. Private Sub Senden_Click() If Mailing = False Then If SendMail(FromName.Text) Then MsgBox ("Email erfolgreich verschickt") Else MsgBox ("Fehler beim Versenden aufgetreten") End If Else MsgBox ("Letzte EMail wird noch gesendet !") End If End Sub Private Function SendMail(SMTP$, FromName$, FromMail$, ToName$, _ ToMail$, Subj$, Body$) As Boolean Dim MAIL$, outTO$, outFR$ If Mailing = True Then Exit Function Mailing = True MousePointer = vbHourglass If Winsock1.State = sckClosed Then On Error GoTo ERRORMail Winsock1.LocalPort = 0 outFR = "mail from: " & FromMail & vbCrLf outTO = "rcpt to: " & ToMail & vbCrLf & "data" & vbCrLf '### ab hier geändert MAIL = MAIL & "Servername:" & SMTP MAIL = MAIL & "Von: " & FromName & FromMail MAIL = MAIL & "An: " & ToName & ToMail MAIL = MAIL & "Betreff:" & Subj MAIL = MAIL & "Nachrichtentext:" & Body '### bis hier '### Verbindung aufbauen ShowStatus ("Verbinde...") Winsock1.Protocol = sckTCPProtocol Winsock1.RemoteHost = SMTP Winsock1.RemotePort = 25 Winsock1.Connect If Not Response("220") Then GoTo ERRORMail '### Verbunden ShowStatus ("Verbunden") Winsock1.SendData ("HELO " & Domain & vbCrLf) If Not Response("250") Then GoTo ERRORMail '### Mail Senden ShowStatus ("Nachricht Senden") Winsock1.SendData (outFR) If Not Response("250") Then GoTo ERRORMail Winsock1.SendData (outTO) If Not Response("354") Then GoTo ERRORMail Winsock1.SendData (MAIL) If Not Response("250") Then GoTo ERRORMail '### Trennen ShowStatus ("Trennen") Winsock1.SendData ("quit" & vbCrLf) If Not Response("221") Then GoTo ERRORMail ShowStatus ("Nachricht verschickt !") SendMail = True End If ERRORMail: Mailing = False Winsock1.Close MousePointer = vbDefault Exit Function End Function

SendMail	69	Denyo	14.11.01 08:43
Re: SendMail	707	Dieter	14.11.01 09:06
Re: SendMail	62	Denyo	14.11.01 09:32
Parameter-Übergabe falsch!	756	Dieter	14.11.01 09:55
Re: Parameter-Ьbergabe falsch!	35	Denyo	14.11.01 12:49
Ein letzter Versuch	821	Dieter	14.11.01 13:00
Re: Ein letzter Versuch	31	Denyo	14.11.01 13:25
Konstante ersetzen	700	Dieter	14.11.01 14:08
Nee	37	Denyo	14.11.01 14:10
Re: Nee	728	Dieter	14.11.01 14:12
Genau	36	Denyo	14.11.01 14:13
Re: Genau	701	Dieter	14.11.01 14:18
Re: Genau	33	Jens	14.11.01 23:47
Re: Genau	706	Dieter	14.11.01 23:59

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