vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
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?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: effeff
Datum: 22.11.19 20:38

https://www.vbarchiv.net/tipps/tipp_2187-alle-email-adressen-eines-textes-ausfiltern.html

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: Chrischi
Datum: 23.11.19 08:06

Hallo und vielen Dank! Aber wie bekomme ich nun das Ergebnis (EMail-Adresse) nach Outlook (AN?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: Chrischi
Datum: 23.11.19 10:03

Kann man den Wert aus der Listbox nicht als Empfänger der Mail-Vorlage übergeben?
 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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: Archilleus
Datum: 23.11.19 11:15

Hallo Chrischi,

ich verwende immer folgende Anweisung und auf Outlook verweise ich direkt über die Verweise:

    Private Sub MandantToolStripMenuItem_Click(sender As System.Object, e As _
      System.EventArgs) Handles MandantToolStripMenuItem.Click
        Dim objOL As New Outlook.Application
        Dim objMail As Outlook.MailItem
        Dim Signature As String
        Dim oAccount As Outlook.Account
 
 
        For Each oAccount In objOL.Session.Accounts
 
            'Wenn besonderer Account verwendet werden soll
            If oAccount.DisplayName = "meine.Mailadresse@beispiel.de" Then
                Signature = GetMailSignatur()
 
                'lokale Mailvorlage
                'objMail = CType(objOL.CreateItemFromTemplate( 
                ' My.Computer.FileSystem.SpecialDirectories.MyDocuments & 
                ' "\MeineVorlage.oft"), Outlook.MailItem)
 
                'normale Email
                objMail = CType(objOL.CreateItem( _
                  Outlook.OlItemType.olMailItem), Outlook.MailItem)
                With objMail
                    If txtEmailadresse.Text.Length > 0 Then .Recipients.Add( _
                      txtEmailaddresse.Text)
                    objMail.SendUsingAccount = oAccount
                    .BodyFormat = Outlook.OlBodyFormat.olFormatHTML
                    .Display()
                End With
            End If
        Next
    End Sub
Gruß Archilleus
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: Chrischi
Datum: 23.11.19 13:35

Hallo, vielen Dank für deinen Vorschlag,
leider wechselt die Adresse ständig in der Listbox und bei deinem Vorschlag ist die Adresse An: fix
ich brauch eine Lösung, das die Adresse in der List.box an Outlook, bzw. an die Vorlage.msg übergeben wird.
Viele Grüße

Chrischi
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: Archilleus
Datum: 23.11.19 16:31

Auch dafür gibt es eine Lösung:

Dim MyOL_Mail As Microsoft.Office.Interop.Outlook.MailItem
Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
objOutlook = New Microsoft.Office.Interop.Outlook.Application
 
MyOL_Mail = CType(objOutlook.ActiveInspector.CurrentItem, _
  Microsoft.Office.Interop.Outlook.MailItem)
MyOL_Mail.To ="meine.mailadresse@gmx.de"
Mit diesem Code verweist man auf die gerade angezeigte offene Email und kann auf diese jetzt im vollem
Umfang darauf zugreifen.

Gruß Archilleus

Beitrag wurde zuletzt am 23.11.19 um 16:32:31 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: EMail-Adresse aus Textdatei auslesen und an Outlook weitergeben 
Autor: Chrischi
Datum: 26.11.19 11:00

So hat es jetzt gefunzt
Process.Start("Mailto: " & TextBox2.Text.ToString())
Vielen Dank für die Hilfe
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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-2020 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