Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Quellcode interpretieren !!!
Autor: Axelpack
Datum: 08.11.01 15:20
Wer kann mir den Quellcode interpretieren??? am besten Pseudocode! Sub OLWiedervorlage() 'Erstellt eine neue Outlook-Aufgabe mit automatischer Erinnerung für 'die erneute Bearbeitung (Wiedervorlage) des aktuellen Dokuments. '© 2000, Ralf Nebelo Dim objOL As Object Dim objAufgabe As Object Dim strDokPfadname As String Const olTaskItem = 3 Const olByReference = 4 Set objOL = CreateObject("Outlook.Application") If objOL Is Nothing Then MsgBox "Outlook kann nicht gestartet werden." Exit Sub End If strDokPfadname = ActiveDocument.FullName Set objAufgabe = objOL.CreateItem(olTaskItem) With objAufgabe .Subject = "Wiedervorlage: " & strDokPfadname .StartDate = CStr(Date + 1) .ReminderSet = True .ReminderTime = CStr(Date + 1) & " 8:00" .Body = "Dokument zur erneuten Bearbeitung öffnen." & vbCr & vbCr .Attachments.Add strDokPfadname, olByReference, Len(.Body) + 1 .Display End With Set objOL = Nothing End Sub

Quellcode interpretieren !!!

62

Axelpack

08.11.01 15:20

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