Nützliche Outlook Makros

Markiere zillionen Mails und kopiere ihren Text (nur die Body) aneinandergereiht ins Clipboard. Praktisch um ihren Inhalt dann weiterzuverarbeiten, z. B. mit einem Webformular.

Hinweis: Man legt sich das praktischerweise natürlich auf einen Button.

Public Sub CopySelectedMessagesBodyAsTextToClipboard()


    Dim sel As Outlook.Selection


    Dim msg As Outlook.MailItem


    Dim n As Integer


    Dim all As String





    Set sel = ActiveExplorer.Selection


    all = ""


    For n = 1 To sel.Count


      Set msg = sel.Item(n)


      all = all & msg.Body & vbCrLf


      msg.UnRead = False


    Next n





    ' http://stackoverflow.com/questions/5552299/how-to-copy-to-clipboard-using-access-vba


    ' this needs a reference to c:\windows\system\fm20.dll


    Dim Clipboard As New MSForms.DataObject


    Clipboard.SetText all


    Clipboard.PutInClipboard





End Sub