Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mail senden
Autor: Mainbird
Datum: 24.09.02 10:12
Ich habe folgendes Programm. Es soll einen Termin in den Outlook Kalender schreiben, nur leider funkt. der letzte Befehl, der send Befehl nicht, kann mir jemand helfen? Danke Private Sub Command1_Click() Dim objSess As Session Dim objCalFold As Folder Dim colAppts As Messages Dim objNewAppt As AppointmentItem Dim colRecips As Recipients Set objSess = CreateObject("MAPI.Session") objSess.Logon showDialog:=True Set objCalFold = objSess.GetDefaultFolder (CdoDefaultFolderCalendar) Set colAppts = objCalFold.Messages Set objNewAppt = colAppts.Add With objNewAppt .Importance = CdoHigh .Subject = "Extremely important meeting tomorrow!" .Text = "We will discuss stock distribution." .StartTime = DateAdd("d", 1, DateAdd("h", 9, Date)) .EndTime = DateAdd("h", 1, .StartTime) Set colRecips = .Recipients End With With colRecips .Add = ("my@company.com") .Resolve End With objNewAppt.Send ' appointment becomes a meeting at this moment End Sub

Mail senden

64

Mainbird

24.09.02 10:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen