[Code] [VB] Email senden

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von GaNoNTC, 12. Januar 2009 .

Schlagworte:
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 12. Januar 2009
    [VB] Email senden

    Hey, ich will für ein Radio eine art Feedback Formular machen, aber in einem Programm^^

    Wie mache ich das was in Textbox1 steht zu einer bestimmten Email geschickt wird??
    Sollte ohne Outlook sein.
    Hatte mal so einen Code aber der is weg, da musste ich 2 Emails eintragen.
    1. Den sender mit Password.
    2. Den Emüfänger ohne Password. =/

    Könnt ihr mir vll helfen?^^

    mfg GanonTC
     

  2. Anzeige
  3. #3 12. Januar 2009
    AW: [VB] Email senden

    Klar hab ich Google benutzt... Seit 16uhr suche ich...

    Zu Link 1. Das isn ganzes Email Programm, Ich will nur ein Formular^^
    Zu Link 2.
    Code:
    Private Sub Command1_Click()
     If Mailing = False Then
     If SendMail(Text1.Text, Text2.Text, Text3.Text, Text4.Text, _
     Text5.Text, Text6.Text, Text7.Text) Then
    Was soll das sein? LoL

    EDIT:
    Es sollte so sein wie dieses hier
    Code:
    Imports System.Net
    Imports System.Net.Mail
    
    
    
    
    Public Class Form1
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MessageBox.Show("Falsches Passwort, bitte korrigieren!")
    Dim text As String
    text = TextBox1.Text & TextBox2.Text
    Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
    myClient.Credentials = New NetworkCredential("EURE EMAILADRESSE 1", "EUER PASSWORT DAZU")
    
    myClient.Send("EURE EMAILADRESSE 1", "EURE EMAILADRESSE 2, AN DIE DAS PASSWORT GESCHICKT WERDEN SOLL", "Neue Mail", text)
    
    End Sub 
    Nur halt für VB^^
     
  4. #4 12. Januar 2009
    AW: [VB] Email senden

    Das zweite ist ein Code für .Net. Wenn du emails senden willst, solltest du dir mal Winsocks und das SMTP protokoll ansehen (ich gehe mal davon aus, dass du mit VB6 codest). Evt auch einfach mal nen Sniffer laufen lassen und schau wie das dein Email Programm macht.
     
  5. #5 12. Januar 2009
    AW: [VB] Email senden

    Kann mir nicht einfach wer den Code machen? =/
    Brauche ja nur das wo ich die emails eintrage


    Will nur 2x Textbox haben
    Aus beiden textboxen soll alles geschickt werden wenn man auf nen button klickt =(

    EDIT: Oder wenns geht auch aufm FTP schicken, das was in der textbox steht^^
     
  6. #6 12. Januar 2009
    AW: [VB] Email senden

    Ein Funktionsaufruf dieser Funktion:

    Code:
    Private Function SendMail(SMTP As String, FromName As String, _
     FromMail As String, ToName As String, ToMail As String, Subj As String, _
     Body As String) As Boolean
     
     Dim Mail As String, outTO As String, outFR As String
     
     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: " & FromName & " <" & 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 Mailing Tester"
     Mail = Mail & vbCrLf & "To: " & ToName & " <" & ToMail & ">"
     Mail = Mail & vbCrLf & "Subject: " & Subj & vbCrLf
     Mail = Mail & vbCrLf & Body & vbCrLf & vbCrLf & "." & vbCrLf
     
     '### 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")
     
     'UPDATE am 28. September 2002
     Winsock1.SendData (outFR)
     If Not Response("250") Then Goto ERRORMail
    
     Winsock1.SendData (outTO)
     If Not Response("250") Then Goto ERRORMail
    
     Winsock1.SendData ("DATA" & vbCrLf)
     If Not Response("354") Then Goto ERRORMail
    
     Winsock1.SendData (Mail)
     If Not Response("250") Then Goto ERRORMail
     'UPDATE ENDE
    
     '### 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
    
    Steht doch alles da, die Parameter sind:


    Code:
    SMTP As String 'vermutlich der Server...
    FromName As String 'Absender-Name
    FromMail As String 'Absender E-Mail
    ToName As String 'Empfänger-Name
    ToMail As String 'Empfänger E-Mail
    Subj As String 'Betreff
    Body As String 'Inhalt
    Die Funktion rufst du halt dann mit den Werten aus deinen Textboxen auf. Ob sie funktioniert, is natürlich ne andere Frage :p
     
  7. #7 12. Januar 2009
    AW: [VB] Email senden

    Nunja, wenn das für Vb6 wär wäre es nice^^
     
  8. #8 12. Januar 2009
    AW: [VB] Email senden

    Is es doch ?(
     
  9. #9 12. Januar 2009
    AW: [VB] Email senden

    Jup. Is VB6. Allerdings bezweifle ich, dass du damit erfolg hast, da der Code keinen Auth hat, wird nahezu jeder SMTP Server mittlerweile vorraus setzten. Musste halt noch integrieren (WIki hilft hier, such mal nach SMTP-Auth)
    PS:
    Was meinst du damit? FTP Upload? Auch dazu gibts genug beispiele per google. Wenn du jemanden suchst, der dir das schreibt, schreib ne anfrage im "ich such programmierer Thread"
     

  10. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Code Email senden
  1. Antworten:
    0
    Aufrufe:
    2.508
  2. Antworten:
    6
    Aufrufe:
    558
  3. Antworten:
    3
    Aufrufe:
    636
  4. Antworten:
    2
    Aufrufe:
    350
  5. Codes für eMails...

    Damarus , 15. Oktober 2006 , im Forum: Webentwicklung
    Antworten:
    0
    Aufrufe:
    198