Hi!
Ich will eine Email aus Excel senden aber der Betreff, Empfänger und
Anhang dürfen nicht verändert werden. Ich habe mir hierzu drei
Möglichkeiten überlegt, habe aber Probleme bei der Realisierung. Hier
erstmal der Code-Auszug:
Code:
Dim OutLookJob As Object, mymail As Object
Set OutLookJob = CreateObject(„Outlook.Application“)
Set mymail = OutLookJob.CreateItem(0)
With mymail
.To = „[email protected]“
.Subject = „Dies ist deine Betreffzeile!“
.attachments.Add „C:\test.xls“
.display
Hier meine Ideen
- Beim .display die Eigenschaften .To, .Subject und .attachments.Add
auf „nicht-änderbar“ setzen. Allerdings weiß ich nicht, ob und wie das
geht. - Ein benutzerdefinertes Formular aufpoppen lassen, wo man nur den
BCC-Empfänger und den Nachrichtentext eingeben kann. Aber auch hier
weiß ich nicht, ob und wie das geht. - Erst die Email ganz normal über .display aufpoppen lassen,
Änderungen vom User durchführen lassen, und anschließend Betreff,
Adressat und Anhang wieder überschreiben. Hierbei hab ich allerdings
das Problem, daß das VBA-Makro nach dem Öffnen der Mail nicht anhält
sondern durchläuft bis zum Ende. Außerdem ist meine Vermutung, daß
wenn der User in der Mail auf „Senden“ klickt, ich zwei Mails bekommen
würde, einmal die vom User veränderte und einmal die durch mein Makro
formatierte…
Kann mir jemand helfen?
P.S.: Ich sehe gerade, daß die .Display-Methode einen Inspektor unterstützt. Kann mir der eventuell bei meinem Problem helfen? Ich kenne zwar Sinn und Zweck eines Inspektors nicht, aber für mich hört es sich so an, als würde er Änderungen verfolgen…