eMail versenden
Ackermann Manfred
irgendwie stehe ich auf dem Schlauch, ich benutze Windows
XP Home und somit kann ich keine direkten Mails versenden,
und jetzt meine Frage wie kann ich dann meine Mails
versenden ? zB. über Outlook?
gruß der Mane
Peter Fleischer
...
Mane,
wozu Outlook mit seinen restriktiven Sicherheitsschranken bemühen?
Nimm einfach den Namespace System.Net.Sockets, z.B. so für eine E-Mail ohne
Anhang:
Dim SmtpServ As New TcpClient(m_Host, 25)
Dim NetStrm As NetworkStream = SmtpServ.GetStream
Dim rdStrm As New StreamReader(SmtpServ.GetStream)
Dim cr As Cursor
Dim CRLF As String = Chr(13) & Chr(10)
cr = Cursor.Current
Cursor.Current = Cursors.WaitCursor
Dim answer As String
Dim login As New clsZugang
Try
answer = NSRead(220, rdStrm, "Abfrage Server Bereit")
' Den Server begrüßen
answer &= NSWrite("EHLO Server" & CRLF, NetStrm)
answer &= NSRead(250, rdStrm, "Server nach Begrüßung")
answer &= NSRead(250, rdStrm, "Server fordert Authentifizierung")
' Anmeldename senden
answer &= NSWrite("AUTH LOGIN" & CRLF, NetStrm)
answer &= NSRead(250, rdStrm, "Server begrüßen")
Dim i As Integer = 0
Do
i += 1
Dim answer1 As String = NSRead(0, rdStrm, "Warten auf 334")
answer &= answer1
If Left(answer1, 3) = "334" Then Exit Do
Loop
' Anmeldename senden
answer &= NSWrite(System.Convert.ToBase64String(login.Anmeldename, _
0, login.Anmeldename.Length) & CRLF, NetStrm)
answer &= NSRead(334, rdStrm, "Anmeldename gesendet")
' Password senden
answer &= NSWrite(System.Convert.ToBase64String(login.Anmeldekennwort,
_
0, login.Anmeldekennwort.Length) & CRLF, NetStrm)
answer &= NSRead(235, rdStrm, "Password gesendet")
' Absender
answer &= NSWrite("MAIL FROM: " & m_AbsenderAddr & CRLF, NetStrm)
answer &= NSRead(250, rdStrm, "Absendeadresse übergeben")
' Empfänger
answer &= NSWrite("RCPT TO: " & m_EmpfaengerAddr & CRLF, NetStrm)
answer &= NSRead(250, rdStrm, "Empfängeradresse übergeben")
' DATA-Header senden
answer &= NSWrite("DATA " & CRLF, NetStrm)
answer &= NSRead(354, rdStrm, "DataHeader gesendet")
' Betreff senden
answer &= NSWrite("Subject: " & m_Betreff & CRLF, NetStrm)
' Addressat senden
answer &= NSWrite("To: " & m_EmpfaengerAddr & CRLF, NetStrm)
' Absender senden
answer &= NSWrite("From: " & m_Absender & "<" & m_AbsenderAddr & ">" &
CRLF, NetStrm)
' Datum senden
answer &= NSWrite("Date: " & Format(Now, "YY/MM/DD HH:mm:SS") & CRLF,
NetStrm)
' Nachricht senden
answer &= NSWrite("Content-Type: text/plain;" & CRLF, NetStrm)
answer &= NSWrite(vbTab & "charset=""iso-8859-1""" & CRLF, NetStrm)
answer &= NSWrite("Content-Transfer-Encoding: quoted-printable" &
CRLF, NetStrm)
answer &= NSWrite(CRLF & m_Nachricht & CRLF, NetStrm)
' Abschluss senden
answer &= NSWrite(CRLF & "." & CRLF, NetStrm)
' Da kommt noch 'was
answer &= NSRead(250, rdStrm, "Kommt noch was?")
' Tschüss sagen
answer &= NSWrite("QUIT " & CRLF, NetStrm)
answer &= NSRead(221, rdStrm, "Tschüss gesagt")
' Leitung dicht machen
NetStrm.Close()
rdStrm.Close()
Catch fe As Exception
MessageBox.Show(fe.Message & vbNewLine & answer)
Finally
Cursor.Current = cr
End Try
Peter
Ackermann Manfred
funkt. bei mir nicht wahrscheinlich weil bei ich ja nicht
die Klasse clsZugang habe.
gruß der Mane
>-----Originalnachricht-----
>Ackermann Manfred wrote:
>....
>.
>
Peter Fleischer
> danke für deine prompte antwort
>
> funkt. bei mir nicht wahrscheinlich weil bei ich ja nicht
> die Klasse clsZugang habe.
Manfred,
ein bißchen musst du schon noch selbst machen, z.B. Name und Kennwort
einstellen, die die Klasse clsZugang bereitstellt.
Peter