Terminplan in Excell nacht Outlook-Termine exprtieren ?

09/06/2010 - 01:43 von MWussler | Report spam
Hallo,

ist es möglich einen Terminplan aus Excell nacht Outlook-Kalender zu
exportieren.
So dass die einzelnen Termin im Outlook-Kalender sichtbar sind
MfG
MW
 

Lesen sie die antworten

#1 Ahmed Martens
09/06/2010 - 18:37 | Warnen spam
Hallo MWussler,

Am Wed, 9 Jun 2010 01:43:20 +0200 schrieb MWussler:

Hallo,

ist es möglich einen Terminplan aus Excell nacht Outlook-Kalender zu
exportieren.
So dass die einzelnen Termin im Outlook-Kalender sichtbar sind
MfG
MW




Das Prinzip sollte eindeutig sein.

Hier einmal der Code um einen Termin in Outlook zu erstellen:

Public Sub addOutlookTask()

Dim appOutLook As Outlook.Application
Dim taskOutLook As Outlook.TaskItem
Dim myUserProperty As Outlook.UserProperty

350 Set appOutLook = CreateObject("Outlook.Application")
360 Set taskOutLook = appOutLook.CreateItem(olTaskItem)


370 With taskOutLook

'Betreff und Body der Aufgabe
380 .Subject = frm.xptxtBetreff 'Betreff setzen
390 .Body = frm.xptxtBody 'Body setzen
400 .Companies = frm.xptxtMdNr '(Feld: Firma)
'.Categories = vZusatzinfo(1)
410 On Error Resume Next
420 x = .UserProperties.Count

'Hinzufügen UserProperties und mit Wert befüllen
430 Set myUserProperty = .UserProperties.Add("Dateiname", olText)
440 myUserProperty.Value = vZusatzinfo


'Fàlligkeitsdatum setzen, Wichtig: Halten Sie diese Reihenfolge ein
'Erst die Fàlligkeit und den Beginn,
'erst dann Erinnerungszeit setzen


450 .Startdate = CDate(frm.xpDTPicker_Datzum(0).Text & " " & Format(Now(), "hh:mm")) 'Beginnt am
460 .DueDate = CDate(frm.xpDTPicker_Datzum(1).Text & " " & frm.xpcmbZeit(1).Text)


'Erinnerungszeit setzen
'.ReminderOverrideDefault = True 'Nur, falls User in OL Unsinn eingestellt hat
'(3 Vorschlàge für Setzen der Erinnerung)


470 .Remindertime = Format(CDate(frm.xpDTPicker_Datzum(2).Text & " " & frm.xpcmbZeit(1).Text)) 'Datum aus Formular - Zeit fest
480 .ReminderSet = frm.xpchkErinnerung.Value 'Reminder einschalten
490 .ReminderPlaySound = False
'.Categories = "test"
'.GetRecurrencePattern für Terminserien

'Pfad zu einer .wav Datei
'.ReminderSoundFile = "C:\Windows\Media\Ding.WAV"

'Entweder Sichern oder Anzeigen
500 .Save '(Sichern o. Anzeige)
'.Display '(Sichern u. Anzeige)
510 End With

520 Set taskOutLook = Nothing
530 Set appOutLook = Nothing

End Sub

Gruß Ahmed

Antworten bitte nur in der Newsgroup

Ähnliche fragen