Hallo David User,
wir setzen eine selbstprogrammierte Access Datenbank ein.
Dort habe ich (vor David Zeiten) eine Funktion gebastelt, die mir eine neue Email mit vorgefertigten Betreff, Nachrichteninhalt und angehängter Datei öffnete. (der Dateianhang ist das wichtigste !)
Das Script sah in etwa wie folgt aus:
###Anfang###
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
'Variablen
Dim Empf As String 'An:
Dim CC As String 'CC:
Dim BCC As String 'BCC:
Dim Betreff As String
Dim Nachricht As String
Dim ATT As String 'Dateipfad zum Anhang (Anlage)
Betreff = "bla bla"
Nachricht = "Sehr geehrte Damen und Herren,"
'Fest codierten Pfad vorgeben
ATT = "O:\Daten\Zeichnungen\" & Me!Zeichnung
' Outlook öffnen
Set objOutlook = CreateObject("Outlook.Application")
' Nachricht in Outlook erstellen.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Empfänger hinzufügen
'Set objOutlookRecip = .Recipients.Add("ler@in")
'objOutlookRecip.Type = olBCC
'objOutlookRecip.Type = olTo
' Betreff, Body, und Wichtigkeit setzen
'.To = "ler@in"
.Subject = Betreff
.Body = Nachricht 'Nur Text
.Importance = olImportanceNormal 'Low, Normal, High = Dringlichkeitsstufen
' Einen Anhang zur Mail hinzufügen.
Set objOutlookAttach = .Attachments.Add(ATT)
' Empfängernamen überprüfen.
'For Each objOutlookRecip In .Recipients
' objOutlookRecip.Resolve
'Next
'E-Mail in Outlook anzeigen oder sofort versenden mit Benachrichtigung?
'DisplayMsg = Kontrollkästchen
'E-Mail in Outlook anzeigen oder sofort versenden mit Benachrichtigung?
'DisplayMsg = Kontrollkästchen
.Display
End With
Set objOutlook = Nothing
###Ende###
Wie lautet denn nun die korrekte Befehlsreferenz um das David InfoCenter ansprechen zu können ?
Vielen Dank im Voraus.
Gruß
Alex