MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Outlook (Express), sonst. Mailprogramme
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 17.11.2017, 09:05   #1
Gernot
MOF User
MOF User
Standard OL 2007 - Mail-Inhalt als .txt speichern

Hallo,
ist es möglich den Inhalt einer email (eine zusammenhängende Zeichen/Nummernfolge) per vba auszulesen und in einem beliebigen Ordner (z.B. D:/Messwerte/M&Datum&Uhrzeit.txt zu speichern?

lg
Gernot
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.11.2017, 09:45   #2
mumpel
MOF Meister
MOF Meister
Standard

Hallo!

Das ist möglich. Wie sieht denn der Aufbau der Email aus? Steht die Zeichenfolge immer an der selben Stelle? Und hat die Zeichenfolge immer die selbe Länge?

Gruß, René
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.11.2017, 09:53   #3
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Betreff: Nachricht von der Homepage
Body Variante1 z.B. StKN~1~2
Variante2: Vor~Nach~addi~a~b~c~d~e~ .....

aber es ist immer nur ein String (Homepage-Angaben mit ~ getrennt), sonst nichts

lg
Gernot
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.11.2017, 10:34   #4
mumpel
MOF Meister
MOF Meister
Standard

Ungetestet:

Option Explicit
Declare Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, _
                                                         ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _
                                                         ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, _
                                                         ByVal lpDefaultChar As Long, _
                                                         ByVal lpUsedDefaultChar As Long) As Long
                                                         
                                                          
Sub SaveBodyAsString()

Dim olMailItem    As Outlook.MailItem
Dim strMailBody   As String
Dim strPfad       As String

 Select Case True
        Case TypeOf Application.ActiveWindow Is Outlook.Inspector
             Set olMailItem = Application.ActiveInspector.CurrentItem
        Case Else
             With Application.ActiveExplorer.Selection
                  If .Count Then Set olMailItem = .Item(1)
             End With
             If olMailItem Is Nothing Then Exit Sub
        End Select
  
Rem Mailbody auslesen (Tilte ersetzen durch Bindestrich) 
strMailBody = Replace(olMailItem.Body, "~", "-")

Rem Pfad erstellen 
strPfad = "D:/Messwerte/M" & Format(Now, "DD-MM-YYYY hh-mm") & ".txt"

Rem Inhalt als Textdatei ausgeben 
UTF8Output strPfad, strMailBody
End Sub


Sub UTF8Output(Datei As String, t As String, Optional BOM As Boolean = False)
    
    Dim tmp() As Byte, l As Long, FF As Integer
        
    If Len(Datei) = 0 Or Len(t) = 0 Then Exit Sub
    l = WideCharToMultiByte(65001, 0, _
        StrPtr(t), Len(t), 0, 0, 0, 0)
    Redim tmp(0 To l - 1)

    WideCharToMultiByte 65001, 0, StrPtr(t), Len(t), _
        VarPtr(tmp(0)), l, 0, 0
    FF = FreeFile
    Open Datei For Output As #FF
    Close #FF
    FF = FreeFile
    Open Datei For Binary As #FF
       Put #FF, , tmp
    Close #FF

End Sub





VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0


Geändert von mumpel (17.11.2017 um 10:39 Uhr).
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:10 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.