Kopie E-Mail in die Zwischenablage mit Outlook-VBA

Wie kopiere ich eine E-Mail in die Zwischenablage und fügen Sie ihn in excel die Tabellen intakt?

Bin ich mit Outlook 2007 und ich möchte das gleiche

"Click on email > Select All > Copy > Switch to Excel > Select Cell > Paste".

Habe ich das Excel-Objekt-Modell ziemlich gut verstanden, aber haben keine erleben Sie in Outlook anderen als den folgenden code.

Dim mapi As NameSpace
Dim msg As Outlook.MailItem
Set mapi = Outlook.Application.GetNamespace("MAPI")
Set msg = mapi.Folders.Item(1).Folders.Item("Posteingang").Folders.Item(1).Folders.Item(7).Items.Item(526)

InformationsquelleAutor Arlen Beiler | 2010-10-16

6

Ich muss zugeben, dass ich diese in Outlook 2003, aber bitte sehen, ob es funktioniert in 2007:

können Sie die MSForms.DataObject zum Datenaustausch mit der Zwischenablage. In Outlook-VBA, erstellen Sie einen Verweis auf "Microsoft Forms 2.0 Object Library", und versuchen, diesen code (natürlich können Sie befestigen Sie die Sub() zu einer Schaltfläche, usw.):
```
Sub Test()
Dim M As MailItem, Buf As MSForms.DataObject

    Set M = ActiveExplorer().Selection.Item(1)
    Set Buf = New MSForms.DataObject
    Buf.SetText M.HTMLBody
    Buf.PutInClipboard

End Sub
```
Danach wechseln Sie zu Excel, und drücken Sie Strg-V - nächste Woche gehts Los!
Wenn Sie wollen auch zu finden die aktuell laufende Excel Anwendung zu automatisieren und auch diese, lassen Sie es mich wissen.

Es gibt immer eine gültige HTMLBody, auch wenn die mail gesendet wurde, im nur-Text-oder RTF-und Excel zeigt alle text-Attribute vermittelt innerhalb HTMLBody inkl. Spalten, Farben, Schriftarten, hyperlinks, Einzüge etc. Jedoch eingebettete Bilder werden nicht kopiert.

Dieser code veranschaulicht das wesentliche, aber nicht überprüfen, ob wirklich ein MailItem ist ausgewählt. Dies würde erfordern mehr Codierung, wenn Sie wollen, um es Arbeit für Kalender-Einträge, Kontakte, etc. wie gut.

Es ist genug, wenn Sie gewählt haben, die E-mail in der Listenansicht, die Sie gar nicht brauchen, um es zu öffnen.

Konnte nicht finden, dass der ref so dass ich nur legte es in eine form.
wenn Sie "durchsuchen" für die Referenz, suchen Sie nach "fm20.dll" in deinen ...\system32 Verzeichnis
Ich verwende Outlook 2013 unter Windows 8.1. Es kopiert nur zwei falsche Zeichen über die Zwischenablage. Irgendeine Idee, wie man dieses Problem beheben? Konnte ich nicht finden fm20.dll unter windows-Ordner, so folgte @ArlenBeiler 's Beratung.
Da ich keine Win8, ich kann nur generische Hinweise: 1) auf Win8/64bit versuchen Sie eine Suche in ...\Windows\SysWOW64; 2) stellen Sie eine vollständige Suche für FM20.DLL; 3) versuchen, den Download/Anmeldung FM20.DLL; 4) weiter Lesen stackoverflow.com/questions/18668928/...

InformationsquelleAutor MikeD

Ich endlich wieder abholen und vollständig automatisiert. Hier sind die Grundlagen dessen, was ich Tat, um zu automatisieren.

Dim appExcel As Excel.Application
Dim Buf As MSForms.DataObject
Dim Shape As Excel.Shape
Dim mitm As MailItem
Dim itm As Object
Dim rws As Excel.Worksheet
'code to open excel
Set appExcel = VBA.GetObject(, "Excel.Application") 
'...
'code to loop through emails here       
Set mitm = itm
body = Replace(mitm.HTMLBody, "http://example.com/images/logo.jpg", "")
Call Buf.SetText(body)
Call Buf.PutInClipboard
Call rws.Cells(i, 1).PasteSpecial
For Each Shape In rws.Shapes
    Shape.Delete 'this deletes the empty shapes
Next Shape
'next itm

Habe ich entfernt, das logo urls um Zeit zu sparen, und wenn Sie den Umgang mit den 300 E-Mails, die sich in mindestens zehn Minuten gespeichert.

Bekam ich den code, den ich brauchte,ein TechRepublic-Artikel, und dann verändert es auf meine Bedürfnisse anzupassen. Vielen Dank an das akzeptiert Beantworter dieser Frage für Sie die Zwischenablage-code.

InformationsquelleAutor Arlen Beiler

0

Ok, so dass ich haben, um bestimmte Annahmen, da fehlen Informationen aus Ihrer Frage.
Erstens: Sie hat nicht gesagt, was mailformat die Nachricht... HTML wäre am einfachsten, der Prozess wird anders sein für die RTF und nicht möglich im Klartext
Da Sie sich auf Tabellen, die ich nehme an, Sie sind HTML-Tabellen und E-mail-format ist HTML.

Es ist auch nicht klar, aus Ihrer Frage, wenn Sie möchten den Inhalt der Tabelle eingefügt separat (1 excel-Zelle pro Zelle) und der rest der E-Mails bodytext einfügen in 1 Zelle oder mehrere?

schließlich haben Sie nicht wirklich gesagt, wenn Sie wollen die VBA ausführen von Outlook oder Excel (nicht wichtig, aber es wirkt sich auf die intrinsische Objekte verfügbar sind.

Sowieso code-Beispiel:
Outlook code für den Zugriff auf die htmlbody-prop
```
Dim mapi As Namespace
Set mapi = Application.Session
Dim msg As MailItem
Set msg = mapi.Folders.Item(1).Folders.Item("Posteingang").Folders.Item(1).Folders.Item(7).Items.Item(526) 
Dim strHTML as String
strHTML = msg.HTMLBody
' There is no object model collection for html tables within the htmlbody (which is a string of html) you will need to parse the html and collect the tables before inserting into Excel.
```
Nicht sagen, wie um es zu kopieren, das ist Teil von dem, was ich wurde gefragt, daher die downvote.
Gut ok gut, sondern setzen den text in ein dataobject ist trivial. ich sehe, dass ich verpasst, dass ein Teil der Frage. schlechte Annahme auf meinem Teil, aber der interessante code ist den text zu beginnen.

InformationsquelleAutor Anonymous Type

Nach einer Weile wieder, ich fand einen anderen Weg. MailItem.Körper ist plain-text, und der hat ein tab-Zeichen zwischen den Tabellenzellen. So habe ich, dass. Hier ist der Kern dessen, was ich getan habe:

Sub Import()
    Dim itms As Outlook.Items
    Dim itm As Object
    Dim i As Long, j As Long
    Dim body As String
    Dim mitm As Outlook.MailItem
    For Each itm In itms
        Set mitm = itm
        ParseReports (mitm.body) 'uses the global var k
    Next itm
End Sub
Sub ParseReports(text As String)
    Dim table(1 To 1000, 1 To 11) As String 'I'm not expecting to see a thousand rows!
    Dim drow(1 To 11) As String
    For Each Row In VBA.Split(text, vbCrLf)
        j = 1
        For Each Col In VBA.Split(Row, vbTab)
            table(i, j) = Col
            j = j + 1
        Next Col
        i = i + 1
    Next Row
    For i = 1 To l
        For j = 1 To 11
            drow(j) = table(i, j)
        Next j
        hws.Range(hws.Cells(k, 1), hws.Cells(k, 11)) = drow
        k = k + 1
    Next i
End Sub

Durchschnitt: 77-E-Mails verarbeitet pro Sekunde. Ich mache einige kleinere Bearbeitung und Extraktion.

InformationsquelleAutor Arlen Beiler

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.