Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SendMail
Autor: Denyo
Datum: 14.11.01 08:43
Wer kann mir sagen, warum ich hier immer die Fehlermeldung bekomme: "Fehler beim Kompilieren: Argument ist nicht optional" Fehler tritt in der dritten Zeile auf! (SendMail) Private Sub Senden_Click() If Mailing = False Then If SendMail(NameE.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 MAIL = MAIL & "From: " & NameE '### 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	68	Denyo	14.11.01 08:43
Re: SendMail	707	Dieter	14.11.01 09:06
Re: SendMail	61	Denyo	14.11.01 09:32
Parameter-Übergabe falsch!	755	Dieter	14.11.01 09:55
Re: Parameter-Ьbergabe falsch!	34	Denyo	14.11.01 12:49
Ein letzter Versuch	820	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	36	Denyo	14.11.01 14:10
Re: Nee	727	Dieter	14.11.01 14:12
Genau	35	Denyo	14.11.01 14:13
Re: Genau	700	Dieter	14.11.01 14:18
Re: Genau	32	Jens	14.11.01 23:47
Re: Genau	705	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