title image


Smiley E-Mail per Access
Hallo Leute! Ich versuche noch immer, meine Attachments per Access zu versenden. Dazu habe ich hier auf meinem PC (Win NT SP5 mit Office97) in meinen Access Code (Button - beim klicken) folgenden Code hinterlegt. 'Das versenden der Datein mit Outlook vorbereiten... 'Festlegen der Umgebungsvariablen 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 an Outlook Dim Empf 'An: Dim CC 'CC: Dim BCC 'BCC: Dim Betreff Dim Nachricht Dim ATT 'Dateipfad zum Attachment 'Festlegen des eMail-Inhalts Empf = "Christian.Jung@nexon.de" CC = "" BCC = "VK/Hagemeier;WB/Droese" Betreff = "Neue Internetdatenbanken!" Nachricht = "Dies ist der Nachrichtentext der Email im HTML-Format." 'Ändern des Body-Textes von 'HTMLBody' zu 'Body', wenn 'Nur Text' Mails gewünscht." 'Hier entscheiden Sie zwischen fest codiert und Pfadübergabe 'ATT = Me.ATT_Pfad 'Pfad-Übergabe ATT = "c:\windows\tips.txt" 'Datei mit festem Pfad angegeben. 'Starten der Outlook-Session Set objOutlook = CreateObject("Outlook.Application") 'Erstellen der Nachricht. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg 'Den Empfänger (An) in die Nachricht schreiben Set objOutlookRecip = .Recipients.Add(Empf) objOutlookRecip.Type = olTo 'Den Empfänger (CC) in die Nachricht schreiben Set objOutlookRecip = .Recipients.Add(CC) objOutlookRecip.Type = olCC 'Den/Die Empfänger (BCC) in die Nachticht schreiben Set objOutlookRecip = .Recipients.Add(BCC) objOutlookRecip.Type = olBCC 'Festlegen des Body-Typs, des Betreffs und der Priorität .Subject = Betreff 'Betreff übergeben .Body = Nachricht 'Nur Text Nachricht '.HTMLBody = Nachricht 'HTML-Format für Nachricht verwenden .Importance = olImportanceHigh 'Dringlichkeit: Hoch 'Ein Attachment zur Mail hinzufügen. Set objOutlookAttach = .Attachments.Add(ATT) '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 'Outlook-Session beenden Set objOutlook = NothingDas sollte auch soweit ok sein. Jedoch läuft das leider nicht. WARUM? Ich habe hier schon ab und an was von "Libaries" oder auch "CDOnts" gelesen. Hat das damit was zu tun? Muss ich noch was installieren oder verknüpfen? MFGThomas D.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: