Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook Makro - Mail als Anhang
 19.03.2021 12:07:42 xsus
NotSolved
19.03.2021 14:48:52 xsus
NotSolved

Ansicht des Beitrags:
Von:
xsus		 Datum:
19.03.2021 12:07:42		 Views:
766		 Rating:
     
Antwort:
  Ja
Thema:
Outlook Makro - Mail als Anhang

Hallo, 

ich hätte gern ein Makro / eine Funktion, bei der ich eine selektierte Mail als Anhang in eine neue Mail packe.

 

Dim myItem As MailItem, olNewMailItem As MailItem

    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set myItem = ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set myItem = ActiveInspector.CurrentItem
    End Select
    On Error GoTo 0
   
Set olNewMailItem = Application.CreateItem(olMailItem)

    olNewMailItem.Attachments.Add (myItem)
    olNewMailItem.Display


exitproc:
    Set myItem = Nothing
    Set olNewMailItem = Nothing
End Sub
 

funktioniert leider nicht ... hat jemand eine Idee? 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook Makro - Mail als Anhang
 19.03.2021 12:07:42 xsus
NotSolved
19.03.2021 14:48:52 xsus
NotSolved