Outlook VB Script
Hallo zusammen,
Ich stehe vor der Aufgabe ein Script zu schreiben das Outlook öffnet (soweit kein Problem).
Dann soll eine neue Mail geöffnet werden 2 Mailadressen sollen in das "An" Feld geschrieben werden, der Betreff soll befüllt werden und eine Datei der in einem bestimmten Pfad liegt soll angehängt werden.
Als Ergebnis soll der Mensch am PC ein Fenster mit einer nicht versendeten Mail sehen an der er evtl 1-2 Kleinigkeiten ändern kann und dann nurnoch auf senden drücken muss
Habt ihr Lösungsvorschläge für mich?
Ich stehe vor der Aufgabe ein Script zu schreiben das Outlook öffnet (soweit kein Problem).
Dann soll eine neue Mail geöffnet werden 2 Mailadressen sollen in das "An" Feld geschrieben werden, der Betreff soll befüllt werden und eine Datei der in einem bestimmten Pfad liegt soll angehängt werden.
Als Ergebnis soll der Mensch am PC ein Fenster mit einer nicht versendeten Mail sehen an der er evtl 1-2 Kleinigkeiten ändern kann und dann nurnoch auf senden drücken muss
Habt ihr Lösungsvorschläge für mich?
Please also mark the comments that contributed to the solution of the article
Content-Key: 210959
Url: https://administrator.de/contentid/210959
Printed on: April 23, 2024 at 11:04 o'clock
3 Comments
Latest comment
Hallo Nathalem!
Sollte (ungetestet) in etwa so gehen:
Ansonsten, sollte Dir das Suchfeld in der Titelzeile jede Menge Treffer liefern
Gruß Dieter
Sollte (ungetestet) in etwa so gehen:
sAn = "xxx@mail.de;yyy@mail.de"
sBetreff = "Mein Betreff"
sText = "Der Text"
sAnhang = "C:\Test.txt"
With CreateObject("Outlook.Application").CreateItem(0)
.To = sAn
.Subject = sBetreff
.Body = sText
.Attachments.Add sAnhang
.Display
End With
Ansonsten, sollte Dir das Suchfeld in der Titelzeile jede Menge Treffer liefern
Gruß Dieter
Hallo Nathalem!
Dann versuchs mal hiermit:
Wobei ich mal davon ausgehe, dass Auto-Email-Signatur aktiviert ist
Gruß Dieter
Dann versuchs mal hiermit:
sAn = "xxx@mail.de;yyy@mail.de"
sBetreff = "Mein Betreff"
sText = "Der Text"
sAnhang = "C:\Test.txt"
With CreateObject("Outlook.Application").CreateItem(0)
.To = sAn
.Subject = sBetreff
With .GetInspector.WordEditor.Paragraphs 'Mit Email-Signatur
.Add
.First.Range.Text = sText & vbNewLine & vbNewLine
End With
.Attachments.Add sAnhang
.Display
End With
Gruß Dieter