Thema Datum  Von Nutzer Rating
Antwort
30.08.2012 08:51:22 Heike
Solved
Blau Makro für Versand mehrerer Entwürfe in Outlook
 30.08.2012 12:51:05 Dekor
NotSolved
30.08.2012 13:47:58 Gast27356
Solved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
30.08.2012 12:51:05		 Views:
1968		 Rating:
     
Antwort:
  Ja
Thema:
Makro für Versand mehrerer Entwürfe in Outlook

Hallo Heike,

hier ein Ansatz...

Sub entwuerfe_senden()
   Dim MyolApp As Object
   Dim MyNameSpace As Object
   Dim DraftsFolder As Object
   Dim i As Long
   
   '******************************
   Set MyolApp = CreateObject("Outlook.Application")
   Set MyNameSpace = MyolApp.GetNamespace("MAPI")
   Set DraftsFolder = Application.Session.GetDefaultFolder(16)

   For i = 1 To DraftsFolder.Items.Count
      'MsgBox DraftsFolder.Items(i)
      DraftsFolder.Items(i).Send
   Next
End Sub

Gruß Detlev

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
30.08.2012 08:51:22 Heike
Solved
Blau Makro für Versand mehrerer Entwürfe in Outlook
 30.08.2012 12:51:05 Dekor
NotSolved
30.08.2012 13:47:58 Gast27356
Solved