title image


Smiley Re: Aus Access Outlook-Element erstellen
Das geht für eine Aufgabe (Taskitem) so:



Public Function CreateOutlookTaskRequest(SDate, Optional EDate, _

Optional Subject = "Test", Optional Body = "Test", Optional Recipient = "test@test.de")

Dim myOlApp As Outlook.Application, aItm As Outlook.TaskItem

On Error Resume Next

Set myOlApp = GetObject(, "Outlook.Application")

If myOlApp is nothing Then

isOpen = True

Else

Set myOlApp = CreateObject("Outlook.Application")

End If

On Error GoTo 0



' Neue Aufgabe anlegen und absenden

Set aItm = myOlApp.CreateItem(olTaskItem)

With aItm

.Assign

If Recipient "" Then .Recipients.Add Recipient

.Subject = Subject

.Body = Body

.StartDate = CDate(SDate)

If Not IsMissing(EDate) Then .DueDate = EDate

.Save

.Send

End With

Set myOlApp = Nothing

End Function



Verweis auf die Outlook-Objektbibliothek nicht vergessen (im Modulentwurf: Extras / Verweise)!



Weitere Beispiele zur Automation von Outlook findest du hier im Archiv, bei Folke Kieseler und auch bei mir.



Hilfreich: Dmitry Streblechenkos Outlook Spy


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: