Outlookvorlage mit Excel

Forumthread: Outlookvorlage mit Excel

11.01.2009 16:46:00

Gast

Hallo,
ich suche eine Möglichkeit, mit Excel eine Outlookvorlage (Formular) zu öffenen.
Wenn möglich sollte auch noch eine Datei angehängt werden und in der Vorlage Platzhalter gefüllt werden.
Zu utopisch?
Gruß Gast

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlookvorlage mit Excel

11.01.2009 18:35:16

Tino
12.0 steht für die Version ;-) oT.

11.01.2009 18:37:24

Tino
Korrektur, kann nicht lesen...

11.01.2009 19:02:05

Tino
AW: Outlookvorlage mit Excel

11.01.2009 19:04:57

Roland
AW: Outlookvorlage mit Excel

12.01.2009 20:37:22

Gast

AW: Outlookvorlage mit Excel

11.01.2009 18:35:16

Tino

Hallo,
so müsste es funktionieren,
Ordner und Betreff der Nachricht musst Du noch an Deine Gegebenheiten anpassen.
Den Verweis Microsoft Outlook 12.0 Object Library must Du noch aktivieren.
(11.0 steht für die Version)
Benötigt den Verweis auf Microsoft Outlook 12.0 Object Library

Option Explicit 
 
Sub Mail_aus_Entwurf() 
   Dim objOutlook As Outlook.Application 
   Dim objnSpace As Outlook.Namespace 
   Dim objFolder As Outlook.Folder 
   Dim objMsg As Outlook.MailItem 
   Dim intCounter As Integer 
 
   Set objOutlook = New Outlook.Application 
   Set objnSpace = objOutlook.GetNamespace("MAPI") 
   'Ordnerpfad anpassen 
   Set objFolder = objnSpace.Folders("Persönliche Ordner").Folders("Entwürfe") 
 
      For intCounter = 1 To objFolder.Items.Count 
         Set objMsg = objFolder.Items(intCounter) 
       If objMsg = "Meine Betreffzeile" Then 'Betreff der Mail anpassen 
         With objMsg 
            .To = "Hier kommt die Adresse rein" 
            .body = "Mein Text" 
            .Attachments.Add 'für Anlagen 
            .Display 
            '.Send  'Hier wird die Mail gesendet 
         End With 
       End If 
      Next intCounter 
 
   Set objnSpace = Nothing 
   Set objFolder = Nothing 
   Set objMsg = Nothing 
   Set objOutlook = Nothing 
End Sub

Gruß Tino

12.0 steht für die Version ;-) oT.

11.01.2009 18:37:24

Tino

Korrektur, kann nicht lesen...

11.01.2009 19:02:05

Tino

Hallo,
sorry, habe Deine Frage nicht richtig gelesen.
Aber das ist noch einfacher, im Beispiel ist die Vorlage im Ordner der Exceldatei.

'Benötigt den Verweis auf Microsoft Outlook 12.0 Object Library 
Sub Mail_aus_Entwurf()
   Dim objOutlook As Outlook.Application
   Dim objMsg As Outlook.MailItem
   Set objOutlook = New Outlook.Application
   Set objMsg = objOutlook.CreateItemFromTemplate(ThisWorkbook.Path & "\Test.oft")

         With objMsg
            .To = "Hier kommt die Adresse rein"
            .body = "Mein Text"
            .Attachments.Add 'für Anlagen 
            .Display
            '.Send  'Hier wird die Mail gesendet 
         End With


   Set objMsg = Nothing
   Set objOutlook = Nothing
End Sub

Gruß Tino

AW: Outlookvorlage mit Excel

11.01.2009 19:04:57

Roland

Hallo Gast,
nicht utopisch, aber auch nicht trivial. Hier gibts einen Einstieg
http://www.outlookcode.com/article.aspx?id=23
der aber nicht auf die Fälle gesondert eingeht, wo die Veröffentlichung der Vorlagen durch einen Exchange Server kontrolliert wird.
Schönen Restsonntag
Roland Hochhäuser

AW: Outlookvorlage mit Excel

12.01.2009 20:37:22

Gast

Danke an euch für die Info.
Gruß Gast

Forumthread: Outlookvorlage mit Excel

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread