Termine aus Excel in Outlook für freigegebenes Konto

Moderator: ModerationP

Termine aus Excel in Outlook für freigegebenes Konto

Beitragvon kopsman » 09. Mai 2018, 22:36

Hallo zusammen,

ich versuche schon seit einiger Zeit meinen VBA-Code, den ich mir zu Erstellung für meine persönlichen Termine geskriptet habe auch, für anderen Kalender anzupassen. Leider bisher ohne Erfolg :( .
Was muss ich noch dazu packen, damit der zu erstellenden Termin in den Kalender des Kontos von max.muster@abc.de angelegt wird?

Ich hoffe ihr könnt mir helfen.

Ich nutze Office 2016.

VG

Code: Alles auswählen
Sub PSC_Termine_von_Excel_nach_Outlook_exportieren()
Dim OutApp As Object, apptOutApp As Object
Dim RequiredAttendees As Variant
Dim OptionalAttendees As Variant


'Termine aus Excel-Sheet lesen
Range("A2").Select
Do Until ActiveCell.Value = ""
  Set OutApp = CreateObject("Outlook.Application")
  Set apptOutApp = OutApp.CreateItem(1)
  With apptOutApp
    'Termine werden aus den Zellen gelesen
    .Start = Format(ActiveCell.Offset(0, 1).Value, "dd.mm.yyyy") & _
       " " & Format(ActiveCell.Offset(0, 2).Value, "hh:mm")
   
    .Subject = ActiveCell.Offset(0, 4).Value
   
    'Zusätzlicher Text
    .Body = ActiveCell.Offset(0, 5).Value
   
    'Ort
    '.Location = ActiveCell.Offset(0, 5).Value
   
    'Dauer des Ereignisses
    .Duration = ActiveCell.Offset(0, 3).Value
   
    'If ActiveCell.Offset(0, 3).Value = "ja" Then
    '    .AllDayEvent = True
    'Else
    '    .AllDayEvent = False
    'End If
   
    'Erinnerung: 15 min vor Ereignis
    .ReminderMinutesBeforeStart = 15
   
    'Erinnerung wiederholen
    .ReminderSet = True


    'Optionale Teilnehmer hinzufügen
    'Debug.Print ActiveCell.Offset(0, 6).Value
    strTln = ActiveCell.Offset(0, 7).Value
    strTlnAr = Split(strTln, ";")
    For i = LBound(strTlnAr) To UBound(strTlnAr)
        Debug.Print Trim(strTlnAr(i))
        '.Recipients.Add (Trim(strTlnAr(i)))
        Set OptionalAttendees = .Recipients.Add(Trim(strTlnAr(i)))
        OptionalAttendees.Type = 2
    Next
     
    'Erforderliche Teilnehmer hinzufügen
    'Debug.Print ActiveCell.Offset(0, 6).Value
    strTlnR = ActiveCell.Offset(0, 6).Value
    strTlnArR = Split(strTlnR, ";")
    For i = LBound(strTlnArR) To UBound(strTlnArR)
        Debug.Print Trim(strTlnArR(i))
        '.Recipients.Add (Trim(strTlnArR(i)))
        Set RequiredAttendees = .Recipients.Add(Trim(strTlnArR(i)))
        RequiredAttendees.Type = 1
    Next
   
     'Erinnerungsfunktion mit Sound
    .ReminderPlaySound = True

    .Display
    'Termin speichern

  End With

  'Nächste Zeile auswählen
  ActiveCell.Offset(1, 0).Select
 
  Set apptOutApp = Nothing
  Set OutApp = Nothing
Loop
MsgBox "Termine wurden in Outlook eingetragen!"
End Sub
kopsman
Neuling
 
Beiträge: 2
Registriert: 09. Mai 2018, 15:21

Re: Termine aus Excel in Outlook für freigegebenes Konto

Beitragvon mmarkus » 10. Mai 2018, 19:38

Ich habs zwar noch nie benötigt, aber die Methode "GetSharedDefaultFolder" sollte dich weiterbringen.
Einfach mal die Hilfe zu Rate ziehen.
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1682
Registriert: 16. Apr 2012, 16:07
Wohnort: Oberösterreich


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

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