VBA Word2013 / Outlook2013

Moderator: ModerationP

VBA Word2013 / Outlook2013

Beitragvon ulrich2017? » 10. Okt 2019, 14:42

Guten Tag,
wir sind dabei die Besprechungsorganisation neu zu strukturieren - hierzu wollen wir Outlook 2013 einsetzen. Die Gestaltung eines Outlook - Formulars mit der Hinterlegung eines VBA - Skripsts wäre kein Problem wenn nicht VBA aus sicherheitstechnischen Gründen deaktiviert wurde. Also haben wir uns ein Workaround mit Hilfe von Word überlegt.
Folgende Vorgehensweise wäre denkbar:
1. Aufruf in Outlook des Formulars "Neue Besprechung"
2. Eingabe der notwendigen Daten: Teilnehmer, Datum, Uhrzeit, Betreff, etc.
3. Übernahme dieser Daten - bei noch offenem Formular - in Word
4. Durchführung von Zwischenschritten - die Ergebnisse dieser Zwischenschritte werden in das offene, in Bearbeitung befindliche Besprechungsformular übernommen.
5. Klick auf einen Button - Ausführung von VBA - um die Werte aus dem offenen Formular in Word zu übernehmen.
6. Senden des nun vollständigen Besprechungsformulars

Und hier die Problemstellung: Wie spreche ich das noch offene Besprechungsformular an um die eingegebenen Felder (Datum, Uhrzeit, Betreff, Teilnehmer) in Word zu übernehmen. Die Felder selbst sind nicht das Problem - die Liste der Bezeichnungen ist ja im Internet vorhanden.
Vermutlich habe ich gerade ein Brett vor dem Kopf und die Lösung ist banal.

Hier mein Versuch bisher:

'Dim objApp As Object
'Dim termin As Object

'Set objApp = CreateObject("Outlook.Application")
'Set termin = objApp.CreateItem(1)

'termin.ReminderSet = False
'termin.AllDayEvent = False
'termin.Location = "Raum wird noch bekannt gegeben"
'termin.Body = "Ein Termin"
'termin.Duration = 120
'ActiveDocument.Bookmarks("Datum").Range = Format(termin.Start, "dd.mm.yyyy")
'ActiveDocument.Bookmarks("Beginn").Range = Format(termin.Start, "hh:mm") & " Uhr"
'ActiveDocument.Bookmarks("Ende").Range = Format(termin.End, "hh.mm") & " Uhr"
'ActiveDocument.Bookmarks("Betreff").Range = termin.Subject


'ActiveDocument.Bookmarks("Anhänge").Range = termin.Attachments
'termin.Subject = Bezeichnung
'termin.Display


'Set termin = Nothing
'Set objApp = Nothing


Vielen Dank schon jetzt
ulrich2017?
Neuling
 
Beiträge: 1
Registriert: 10. Okt 2019, 14:26

Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste