vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: Chrischi
Datum: 22.11.19 13:27

Hallo, ich würde gerne aus einer TXT-Datei eine Mailadresse "suchen" und an Outlook übergeben
geht bestimmt nur wie?

die TXT sieht so aus:
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
AD_ADDRID,AD_ALIAS,AD_ATTN,AD_BG,AD_BGK,AD_BIRTH,AD_BLACK,AD_BRIEFE,AD_CCLANG,AD_CITY,AD_COMPANY,AD_COMPCOD,AD_COULANG,AD_COUNTRY,AD_CREATED,AD_DEBNUM,AD_DEPARTM,AD_F1ANRED,AD_F1EMAIL,AD_F1GEB,AD_F1INDI2,AD_F1INDIV,AD_F1LAND,AD_F1LNAME,AD_F1NAME,AD_F1NOTE,AD_F2ANRED,AD_F2EMAIL,AD_F2GEB,AD_F2INDI2,AD_F2INDIV,AD_F2LAND,AD_F2LNAME,AD_F2NAME,AD_F2NOTE,AD_F3ANRED,AD_F3EMAIL,AD_F3GEB,AD_F3INDI2,AD_F3INDIV,AD_F3LAND,AD_F3LNAME,AD_F3NAME,AD_F3NOTE,AD_F4ANRED,AD_F4EMAIL,AD_F4GEB,AD_F4INDI2,AD_F4INDIV,AD_F4LAND,AD_F4LNAME,AD_F4NAME,AD_F4NOTE,AD_FAM1,AD_FAM2,AD_FAM3,AD_FAM4,AD_FAX,AD_FEEDBAC,AD_FNAME,AD_GUESTC1,AD_GUESTC2,AD_GUESTC3,AD_HIST,AD_LA,AD_LAK,AD_LANG,AD_LNAME,AD_LP,AD_LPK,AD_LZ,AD_LZK,AD_MAIL1,AD_MAIL2,AD_MAIL3,AD_MAIL4,AD_MAIL5,AD_MARKET,AD_MOBIL,AD_NATIONA,AD_NETTO,AD_NOTE,AD_PARTID,AD_PASSSPO,AD_PHONE,AD_RATE,AD_RATECOD,AD_RATLANG,AD_RE2ADR,AD_RE2ANW,AD_RE2ART,AD_RE2AUTO,AD_RE2AUTR,AD_RE3ADR,AD_RE3ANW,AD_RE3ART,AD_RE3AUTO,AD_RE3AUTR,AD_REART,AD_RESC_11,AD_RESC_12,AD_RESC_13,AD_RESC_21,AD_RESC_22,AD_RESC_23,AD_RESC_31,AD_RESC_32,AD_RESC_33,AD_RESC_M1,AD_RESC_M2,AD_RESC_M3,AD_ROOMNUM,AD_SALUTE,AD_SAVE,AD_SOURCE,AD_STALANG,AD_STATE,AD_STREET,AD_STREET2,AD_TAX,AD_TITLCOD,AD_TITLE,AD_UG,AD_UGES,AD_UPDATED,AD_USERID,AD_USR1,AD_USR2,AD_USR3,AD_USR4,AD_USR5,AD_USR6,AD_USR7,AD_VIP,AD_WERBHIS,AD_WERBUNG,AD_WWW,AD_ZIP,NAME,EMAIL,FAX
"74226",,,"0","0",". .","GEL",,,"Musterstadt","Firma",,"Deutschland","DE","01.01.2000",,,,,". .",,,,,,,,,". .",,,,,,,,,". .",,,,,,,,,". .",,,,,,,,,,,"05136-",,,,,,,". .",". .","GER","Mustermann","0,00","0,00",,,,,,,,,,,,,"0",,"00111-","0,00",,,"0",,,,,"0",,,,,,,,,,,,,,,,,,,"Sehr geehrter Herr Mustermann,",,,"FREI","Niedersachsen","Hier 12",,,"1","Herr","0,00","0,00","07.06.2019","1",,,,,,,"Beispiel@domäne.de",,,,,"33333","Mustermann",,"05136-"
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
und mein bisheroger Code so:
Public Class frm_1
 
 
    Private Sub NeueNachricht(ByVal sRecipient As String,
      Optional ByVal sSubject As String = "",
      Optional ByVal sBody As String = "")
 
        Dim sParam As String
 
        ' Betreff
        If sSubject.Length > 0 Then AddMailParam(sParam, "subject=" & sSubject)
 
        ' Nachrichtentext
        If sBody.Length > 0 Then AddMailParam(sParam, "body=" &
          sBody.Replace(Chr(10), "%0d").Replace(Chr(13), "%0a"))
 
        ' Fenster "Neue Nachricht" öffnen
        Process.Start("mailto: " & sRecipient & sParam)
 
    End Sub
 
    ' Hilfsfunktion: EMail-Parameter zusammenstellen
    Private Sub AddMailParam(ByRef sAllParam As String, ByVal sParam As String)
        If sAllParam = String.Empty Then
            sAllParam = "?" & sParam
        Else
            sAllParam &= "&" & sParam
        End If
    End Sub
 
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      b_cl1.Click
        Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText("C:\Test.txt",
   System.Text.Encoding.ASCII)
        MsgBox(fileReader)
 
        '        NeueNachricht("Name@domäne.de", "Anfrage",
        ' "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf &
        '"vielen Dank für Ihr Interesse..." & vbCrLf &
        ' "......." & vbCrLf &
        ' ".......")
    End Sub
 
    Private Sub b_cl2_Click(sender As Object, e As EventArgs) Handles _
      b_cl2.Click
        Me.Close()
    End Sub
    Dim File As New OpenFileDialog
    Dim filename As String
    Private Sub b_vorlage_Click(sender As Object, e As EventArgs) Handles _
      b_vorlage.Click
        Dim Outlook As New System.Diagnostics.Process()
        Outlook.StartInfo.Arguments = "/f " & """" & filename & _
          "C:\HoRes8\Hotel\DOT\Test1.msg"
        Outlook.StartInfo.FileName = "OUTLOOK.exe"
 
        Outlook.Start()
        Outlook.Dispose()
    End Sub
 
    Private Sub b_vorlage2_Click(sender As Object, e As EventArgs) Handles _
      b_vorlage2.Click
        Dim Outlook As New System.Diagnostics.Process()
        Outlook.StartInfo.Arguments = "/f " & """" & filename & _
          "C:\HoRes8\Hotel\DOT\Test2.msg"
        Outlook.StartInfo.FileName = "OUTLOOK.exe"
 
        Outlook.Start()
        Outlook.Dispose()
    End Sub
 
    Private Sub b_vorlage3_Click(sender As Object, e As EventArgs) Handles _
      b_vorlage3.Click
        Dim Outlook As New System.Diagnostics.Process()
        Outlook.StartInfo.Arguments = "/f " & """" & filename & _
          "C:\HoRes8\Hotel\DOT\Test3.msg"
        Outlook.StartInfo.FileName = "OUTLOOK.exe"
 
        Outlook.Start()
        Outlook.Dispose()
    End Sub
End Class
Hat jemand eine Idee?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
EMail-Adresse aus Textdatei auslesen und an Outlook weiterge...142Chrischi22.11.19 13:27
Re: EMail-Adresse aus Textdatei auslesen und an Outlook weit...91effeff22.11.19 20:38
Re: EMail-Adresse aus Textdatei auslesen und an Outlook weit...70Chrischi23.11.19 08:06
Re: EMail-Adresse aus Textdatei auslesen und an Outlook weit...69Chrischi23.11.19 10:03
Re: EMail-Adresse aus Textdatei auslesen und an Outlook weit...57Archilleus23.11.19 11:15
Re: EMail-Adresse aus Textdatei auslesen und an Outlook weit...64Chrischi23.11.19 13:35
Re: EMail-Adresse aus Textdatei auslesen und an Outlook weit...56Archilleus23.11.19 16:31
Re: EMail-Adresse aus Textdatei auslesen und an Outlook weit...38Chrischi26.11.19 11:00

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel