Die Webseite rund um Microsoft Access
ACCESS LINKS PROJEKTE SHOP KONTAKT INFO
 Home          Beispiel-DBs          Funktionen          FAQs          Downloads          Newsletter          Forum        
         Tipps
Funktion OutlookMailEinfach()
Voraussetzung für das Funktionieren der Funktion ist eine in den Verweisen aktivierte Outlook-Bibliothek.
Public Function OutlookMailEinfach()

' -----------------------------------------
' Erstellen einer leeren Outlook-Mail
' -----------------------------------------

On Error GoTo fehler

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

' Create the Outlook session
Set objOutlook = CreateObject("Outlook.Application")
' Create the message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
' Oulokkmail anzeigen
objOutlookMsg.Display
Set objOutlook = Nothing

ende:
Exit Function

fehler:
MsgBox Err.Description, 16, ""
Resume ende

End Function
Funktion OutlookMailEinfach()Funktion-OutlookMailEinfach()Funktion-OutlookMailEinfach()Funktion-OutlookMailEinfach()




 Login | Impressum | ADMIN | Printversion

Copyright by Seitenzentrale.de