title image


Smiley Re: DoCmd.SendObject mit Mail-Vorlage möglich?
Hallo Maxl,versuchs mal hiermit. Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment 'Variablen für die Übergabe Dim Empf 'An: Dim CC 'CC: Dim BCC 'BCC: Dim Betreff Dim Nachricht Dim ATT 'Dateipfad zum Attachment If Len(Trim(Nz([EMAIL]))) = 0 Then Beep MsgBox "Keine Email - Adresse!", vbCritical, "Problem!" Me.EMAIL.SetFocus Exit Sub Else Empf = Me.EMAIL.Value End If CC = "CC Test Empfänger" BCC = "BCC Test Empfänger" Betreff = "Dies ist ein Automations Test mit Microsoft Outlook" Nachricht = " Dies ist der Nachrichtentext der Email im HTML-Format." _ & "Die Dringlichkeit ist auf 'Hoch' gesetzt. " _ & "Die Formatierung wird durch HTML-Befehle in der Mail erzeugt." _ & "dies ist ein Listenpunkt." _ & "Ändern Sie den Code in Access von 'HTMLBody' zu 'Body', wenn Sie 'Nur Text' Mails wünschen." 'Hier entscheiden Sie zwischen fest codiert und Pfadübergabe ATT = Me.ATT_Pfad 'Pfad-Übergabe 'ATT = "c:\windows\tips.txt" 'Fest Codiert ' Create the Outlook session. Set objOutlook = CreateObject("Outlook.Application") ' Create the message. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg ' Add the To recipient(s) to the message. Set objOutlookRecip = .Recipients.Add(Empf) objOutlookRecip.Type = olTo ' Add the CC recipient(s) to the message. Set objOutlookRecip = .Recipients.Add(CC) objOutlookRecip.Type = olCC ' Add the BCC recipient(s) to the message. Set objOutlookRecip = .Recipients.Add(BCC) objOutlookRecip.Type = olBCC ' Set the Subject, Body, and Importance of the message. .Subject = Betreff '.Body = Nachricht 'Nur Text .HTMLBody = Nachricht 'HTML-Format .Categories = "Test" 'Abstimmungs-Schaltflächen '.VotingOptions = "Stimme zu!;Lehne ab!; Ist mir Wurscht!" .Importance = olImportanceHigh 'Dringlichkeit: Hoch ' Ein Attachment zur Mail hinzufügen. If Len(Trim(Nz([ATT]))) 0 Then 'Falls gar nichts ausgewählt If Me.ATT_Pfad "(Keine)" Then 'Falls File-Dialog abgebrochen Set objOutlookAttach = .Attachments.Add(ATT) End If End If ' Empfängernamen überprüfen. For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve Next ' Nachricht vor dem Senden anzeigen? 'If DisplayMsg Then .Display 'Else ' .Send 'End If 'Jetzt löschen wir den Inhalt des Datei-Anhang Feldes (ATT_Pfad) 'damit wieder mit leerem Feld begonnen wird. Me.ATT_Pfad.Value = "" End With Set objOutlook = NothingViel Spaß Wolfram

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: