title image


Smiley Re: Bericht von Access97 mit Outlook versenden.
kannst direkt anhängen..als report...damit gehts:'Email senden Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment 'Variablen 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 ' Fokus auf das Feld-mail auf der Form setzen, oder statt dessen auf ein Tabellenfeld verweisen Exit Sub Else Empf = Me.EMAIL.Value 'muß Feld E-Mail erstellt werden End If CC = "CC Test Empfänger" BCC = "BCC Test Empfänger" Betreff = "Betreff" 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 von virtuellem Feld ATT_Pfad auf der Form, oder wieder Zugriff auf Tabelle 'ATT = "c:\windows\tips.txt" 'Fest Codiert ' Outlook session aufmachen Set objOutlook = CreateObject("Outlook.Application") ' Message im outlook erstellen. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg ' empfänger hinzufügen Set objOutlookRecip = .Recipients.Add(Empf) objOutlookRecip.Type = olTo ' CC empfänger hinzufügen Set objOutlookRecip = .Recipients.Add(CC) objOutlookRecip.Type = olCC ' BCC empfänger hinzufügen Set objOutlookRecip = .Recipients.Add(BCC) objOutlookRecip.Type = olBCC ' Betreff, Body, and Wichtigkeit setzen .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 VergnügenChristiansmtp: christian.sael@i-online.cc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: