PDA

Vollständige Version anzeigen : Acces 97 und Outlook


Rüdiger Straub
07.05.2001, 10:25
Hallo,

Ich habe ein Formular in das ich mir einen Wiedervorlagetermin eintrage.

Ich möchte das dieser Termin in Outlook in den Kalender übernommen wird, damit ich automatsich erinnert werden.

Wer kann mir weiterhelfen

Alexander Jan Peters
07.05.2001, 11:17
<font color="#000000" size="2" face="Tahoma">Hallo,

hier ist ein Beispiel, es gibt natürlich noch mehr Dinge, die man einstellen kann.

<font color="#000000" size="2" face="Courier New">Public Sub sOutlAppointmentAdd()
Dim OutlApp As Outlook.Application
Dim OutlAppt As Outlook.AppointmentItem
Set OutlApp = CreateObject("Outlook.Application")
Set OutlAppt = appOutLook.CreateItem(olAppointmentItem)

With OutlAppt
'Beginn
.Start = Format(Now,"TT/MM/JJ hh:mm")
'Dauer
.Duration = 15
'Erinnerung
.ReminderMinutesBeforeStart = 5
'Betreff
.Subject = "Test"
'Erg. Infos
.Body = Dies ist eine Test, um zu zeigen," & vbCrLf "wie man in Outlook einen Termin per VBA anlegt"
'Ort
.Location = "MS Office Forum"
'Speichern
'.Save
'Anzeigen
.Display
End With

Set OutlAppt = Nothing
Set OutlApp = Nothing
End Sub</font>
<font color="#000000" size="2" face="Tahoma">
Es wird ein Verweis auf die Outlook-Objekt-Bibliothek benötigt.

Gruß

A.J. Peters

Empfehlenswerte Links:
<a href="http://www.donkarl.com">Access FAQ von Karl Donaubauer</a>
<a href="http://www.access-paradies.de/Links.htm">Access-Paradies Links</a></font>