| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Caran
Anmeldungsdatum: 11.03.2007
Beiträge: 290
Wohnort: Lörrach
|
 Verfasst am: 11.03.2007, 17:39 Titel: E-Mails senden |
 |
|
Hey Leute,
Weiß vielleicht einer von Euch wie man mit FreeBasic E-Mails versendet?
Leider hab ich da keinen Plan  , also naja, ich brauch da dringend Hilfe.
Schon mal Danke im Voraus.
MfG Caran |
|
| Nach oben |
|
 |
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 11.03.2007, 18:01 Titel: |
|
|
Du könntest dir ein Programm schreiben, das sendemail.exe mit den nötigen Parametern versieht und aufruft..
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
Caran
Anmeldungsdatum: 11.03.2007
Beiträge: 290
Wohnort: Lörrach
|
| Verfasst am: 11.03.2007, 18:31 Titel: |
|
|
| Gibt es da nich noch eine andere Möglichkeit oder ist das die einzige? |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
|
| Nach oben |
|
|
Caran
Anmeldungsdatum: 11.03.2007
Beiträge: 290
Wohnort: Lörrach
|
| Verfasst am: 11.03.2007, 18:47 Titel: |
|
|
Hey
Danke für Eure Tipps.
Die waren wirklich sehr hilfreich. 
MfG Caran |
|
| Nach oben |
|
|
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 11.03.2007, 22:12 Titel: |
|
|
Zur not selbst schreiben, mit Winsock. is nicht weiter wild.
unter VB würde das so aussehen:
| Code: | Option Explicit
Dim AKS As Long
Private Sub Command1_Click()
On Error Resume Next
Command1.Enabled = False
Stat "Vorbereiten..."
Dim X As Long
For X = 0 To 3
Text1(X).Enabled = False
Next
AKS = 0
Dim D As String
Dim Pos As Long
Dim Host As String
D = Text1(1).Text
Pos = InStr(1, D, "@")
If Pos > 0 Then
With Winsock1
.Close
.RemoteHost = "smtprelay.t-online.de" 'Mid(D, Pos + 1)
.RemotePort = 25
Stat "Verbindung wird hergestellt..."
.Connect
End With
Else: MsgBox "Empfänger EMail-Adresse ungültig!"
End If
End Sub
Public Function Stat(V_Text As String)
On Error Resume Next
Label1(5).Caption = V_Text
DoEvents
End Function
Public Function Send(V_Text As String)
On Error Resume Next
Winsock1.SendData V_Text
End Function
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
Private Sub Winsock1_Close()
On Error Resume Next
Suc
End Sub
Private Sub Winsock1_Connect()
On Error Resume Next
Stat "Verbindung besteht!"
Stat "Sende EMail..."
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim WSData As String
Winsock1.GetData WSData
Dim CMD As String
If Len(WSData) > 2 Then
CMD = Mid(WSData, 1, 3)
WSData = Mid(WSData, 4)
Select Case CMD
Case "220"
AKS = 0
Send "HELO DirectMailer" & vbCrLf
Case "221"
Winsock1.Close
MsgBox "Erfolgreich versendet!"
Suc
Case "250"
Select Case AKS
Case 0
AKS = 1
Send "MAIL FROM:<" & Text1(0).Text & ">" & vbCrLf
Case 1
AKS = 2
Send "RCPT TO:<" & Text1(1).Text & ">" & vbCrLf
Case 2
AKS = 3
Send "DATA" & vbCrLf
Case 3
Send "QUIT" & vbCrLf
End Select
Case "354"
Send "From: <" & Text1(0).Text & ">" & vbCrLf & "To: <" & Text1(1).Text & ">" & vbCrLf & "Subjekt: " & Text1(2).Text & vbCrLf & vbCrLf & Text1(3).Text & vbCrLf & "." & vbCrLf
Case Else: Suc True
End Select
End If
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error Resume Next
Suc
Stat "Verbindungsfehler beim Senden der EMail!" & vbCrLf & Description
End Sub
Public Function Suc(Optional V_Fail As Boolean)
On Error Resume Next
Dim X As Long
For X = 0 To 3
Text1(X).Enabled = True
Next
Stat "Fertig"
If V_Fail = True Then Stat "Fehlerhaft!"
Command1.Enabled = True
End Function |
MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
Caran
Anmeldungsdatum: 11.03.2007
Beiträge: 290
Wohnort: Lörrach
|
| Verfasst am: 11.03.2007, 23:01 Titel: |
|
|
Cool noch eine Möglichkeiten!
Danke ThePuppetMaster |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
