Office: Aus Exceldaten Outlook-Termin erstellen und Versenden

Hallo zusammen,

ich suche jetzt seit Tagen bei Google und hier im Forum, finde aber aus irgend einem Grund nicht die Lösung für mein Problem.

Folgende Situation:

Wir haben hier eine Exceltabelle zur Planung von dienstlichen Veranstaltungen, für die der jeweilige Betriebsrat für den jeweiligen Kollegen zustimmen muss. Wir haben dadurch viele verschiedene Termine, die wir zwingend einhalten müssen. In dieser Liste steht der Veranstaltungsname, die Namen der Kollegen und (bereits per Makro eingefügt) wann die späteste Einreichfrist (-1 Tag) der jeweiligen Betriebsräte abläuft.
Den MIN-Wert habe ich bereits ermittelt und in einer Zelle versteckt, die vom Makro ausgelesen wird. Beim Abspielen des Makros erstellt mir Excel in Outlook auch korrekt meinen Termin mit Erinnerung und allem drum und dran - ich möchte aber auch einen Kollegen jeweils dazu nehmen (immer der gleiche), da wir diese Theme gemeinsam bearbeiten.
Ich habe im Makro dann entsprechend hinterlegt, wer zusätzlich den Termin erhalten soll, aber das funktioniert einfach nicht.
Ich lasse das Makro ablaufen, bekomme die korrekte Abfrage "Ein Programm versucht auf Outlook zuzugreifen, zulassen oder nicht" (so vom Wortlaut her, ihr kennt die Meldung). Ich öffne dann die Schnittstelle für 10 Minuten, und lasse das Makro mehrmals zum Test ablaufen - mit dem Ergebnis, dass ich den Termin mehrmals bei mir im Outlook habe, mein Kollege hat aber nicht eine einzige Mail bekommen.

Hier der Code:
Code:

Das ist quasi meine erste Berührung mit VBA-Makros, von daher kann es gut sein, dass da ein Denkfehler drin ist. Ich habe zwar jemanden hinzugezogen, der da schon fitter in der Programmierung ist und laut seiner Auskunft sollte das schon so funktionieren wie ich das will, aber naja. Schaut's euch mal an.

Interessant ist evtl. auch:
Wenn ich ".Display" oben mit reinschreibe, sehe ich dass der Kollege in die Liste der benötigten Mitglieder aufgenommen wird. Der Button "Senden" ändert sich auch zu "Speichern und Schließen", aber es wird leider nichts verschickt.

Wo ist das Problem?

Gruß, Micha

:)

 

Hallo Micha,

Schuss ins Blaue (oder den Ofen *wink.gif*):

Was passiert, wenn Du die Befehle .Send und .Save vertauschst?

Grüße
EarlFred

 

Moin Micha,

wie hast du das Problem mittlerweile gelöst?

Gruß Florin