Die Prozedur Mail_Öffnen() packst Du in ein allgemeines Modul.
In den Prozedurkopf von Mail Öffnen die gewünschten Parameter.
Je nach gedrücktem Button übergibst Du entsprechende Parameter an die Prozedur Mail_Öffnen.
Dim xOutMail as Object reicht da nicht. Du musst eine Instanz mit CreateObject() erzeugen.
On Error Resume Next machst Du besser komplett weg. Das ist der Grund wrum nichts passiert bzw bei auftretendem Fehler nicht angezeigt wird um welchen Fehler es sich handelt. Nur wenn Du weisst wo ein Fehler ist, kannst Du diesen beheben.
Abschließender Hinweis:
Versuche mit einem anderen Browser zu posten, damit es leserlich wird. Dann werden Dir vermutlich mehr Leute antworten.
Wenn Du umgesetzte hast kannst nochmal posten (leserlich). Dann sieht man weiter.
|