title image


Smiley Re: Termin aus 97er Excel versenden
hallo karsten



hier ein kommentiertes beispiel:



WICHTIG:

in VBA muss über

> Extras > Verweise

ein verweis auf

> Microsoft Outlook 8.0 ObjectLibrary

erstellt sein !! sonst gehts gar nicht !



Einen Tip noch:



Der Verweis auf die 8.0 Library richtet sich nach der installierten Version.

Wenn du den Code in 2000 verwendest existiert ein Verweis auf die Microsoft Office 9.0 und in XP auf die 10.0 Library.

Da ist Outlook automatisch mit abgedeckt.

gruss

stefan



Sub Aufgabe()

On Error GoTo Ende



'Faelligkeitsdatum MORGEN

Faellig = Date + 1



Set myOlApp = CreateObject("Outlook.Application")

Set myItem = myOlApp.CreateItem(3)

myItem.Subject = "Datei ERFASSEN !" ' Text der Aufgabe

myItem.DueDate = Faellig 'evtl. auch > "10.01.2001"

myItem.ReminderTime = Faellig



myItem.Save

Set myItem = Nothing

Ende:

End Sub




Suche in meinen 22.000 Zitaten
mittels Volltextsuche ! HIER

Und hier in mein Excel-Tips

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: