Hilfe! Wie kann ich einer Textdatei lesen und den Inhalt an der Outlook-Cursorposition einfügen

Home-›Foren-›Outlook-›Outlook VBA-›Hilfe! Wie kann ich einer Textdatei lesen und den Inhalt an der Outlook-Cursorposition einfügen

Ansicht von 2 Beiträgen - 1 bis 2 (von insgesamt 2)
  • Autor
    Beitrag
  • #28411
    bwachuga
    Teilnehmer

      Wie kann ich folgendes tun??
      1. Eine vorhandene Textdatei als READ ONLY öffnen
      2. Den Inhalt Kopieren/Lesen
      3. Textdatei schließen
      4. Textdatei löschen
      5. Den inhalt der Textdatei an der Outlook-Nachrichtcursor position einfügen

      ich kann bis jetzt allen in einem Variable einlesen aber ich weiß nicht wie ich es in meinem Outlook einfugen soll

      Hier ist mein Makro:

      Sub Kundenkontakt()

      Dim strLine As String
      Dim strBody As String
      Dim FF

      FF = FreeFile
      Open \”C:\\copytable.txt\” For Input As #FF
      Do Until EOF(FF)
      Line Input #FF, strLine
      strBody = strBody & Chr(13) & strLine
      Loop
      Close #FF

      End Sub

      #120232
      Unbekannt
      Teilnehmer

        Hallo,

        anbei ein Vorschlag zun einfügen des Textes. – Vielleicht gibts bessere Lösungen , irgenwie funktionierts aber. – Harry der Hirsch 😛 😀 :thumbup:

        Sub Kundenkontakt()
        \’liest den Test in eine Variable ein
        \’ fügt den Text in OL-Mail ein
        Dim strLine As String
        Dim strBody As String
        Dim FF

        Dim objOL As Outlook.Application
        Dim objMail As Outlook.MailItem
        Set objOL = New Outlook.Application

        Set objMail = objOL.CreateItem(olMailItem)

        FF = FreeFile
        Open \”H:\\EinladungOL.txt\” For Input As #FF
        Do Until EOF(FF)
        Line Input #FF, strLine
        strBody = strBody & Chr(13) & strLine

        Loop
        Close #FF

        With objMail
        .To = SendTo
        .CC = SendCC
        .Subject = Titel
        .HTMLBody = strBody
        .Display
        End With

        End Sub

      Ansicht von 2 Beiträgen - 1 bis 2 (von insgesamt 2)

      Das Thema „Hilfe! Wie kann ich einer Textdatei lesen und den Inhalt an der Outlook-Cursorposition einfügen“ ist für neue Antworten geschlossen.

      -