<p>Hallo H.G.P.</p><p>ja, soweit kein Problem.</p><p>Ich möchte aber keine Datei anhängen sondern Daten aus Access 2003 auslesen und im e-mail Text verwenden.</p><p>Das komplette Script sieht so aus:</p><p>Private Sub EmailVersenden_Click() </p>If IsNull(Sprache) Then MsgBox "keine Sprache angegeben" Else Forms!Bestellungen!Lieferdatum = Date Dim Session As Object Dim Message As Object Dim Recipient As Object Dim errObj As Long Dim errMsg On Error GoTo MAPITrap ' Eine Instanz des "MAPI" Objektes referenzieren Set Session = CreateObject("Mapi.Session") ' Exchange Profil auswählen Session.Logon profilename:="Lothar Wasko" ' Eine neue Email Nachricht erstellen Set Message = Session.Outbox.Messages.Add ' Nachrichten Betreff und Text hinzufügen If Forms![Bestellungen]![Sprache] = "Deutsch" Then Message.Subject = "Ihre Bestellung im Pfeifenshop wurde abgeschickt" If Forms![Bestellungen]![Feld239] = "DHL_National" And Forms![Bestellungen]![Sprache] = "Deutsch" Then Message.Text = "Sehr geehrter Kunde," & vbNewLine & "Ihre Bestellung mit der Nr. " & Forms![Bestellungen]![Bestell-Nr] & " wurde soeben per DHL abgeschickt." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Paketverfolgung: http://nolp.dhl.de/nextt-online-public/track.do?lang=de" & vbNewLine & "Die Paketnummer ist: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(es kann einige Stunden dauern, bis die Datenbank aktualisiert wurde)" & vbNewLine & _ "Die Lieferadresse ist:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Eine vollständige Bestell-Historie finden registrierte Kunden online im Kundenbereich." & vbNewLine & vbNewLine & "mit freundlichen Grüßen" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/index.htm" & vbNewLine & "http://www.pipe-shop.net" End If If Forms![Bestellungen]![Feld239] = "DHL_International_Premium" And Forms![Bestellungen]![Sprache] = "Deutsch" Then Message.Text = "Sehr geehrter Kunde," & vbNewLine & "Ihre Bestellung mit der Nr. " & Forms![Bestellungen]![Bestell-Nr] & " wurde soeben per DHL abgeschickt." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Paketverfolgung: http://nolp.dhl.de/nextt-online-public/track.do?lang=de" & vbNewLine & "Die Paketnummer ist: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(es kann einige Stunden dauern, bis die Datenbank aktualisiert wurde)" & vbNewLine & _ "Die Lieferadresse ist:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Eine vollständige Bestell-Historie finden registrierte Kunden online im Kundenbereich." & vbNewLine & vbNewLine & "mit freundlichen Grüßen" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/index.htm" & vbNewLine & "http://www.pipe-shop.net" End If If Forms![Bestellungen]![Feld239] = "DPD" And Forms![Bestellungen]![Sprache] = "Deutsch" Then Message.Text = "Sehr geehrter Kunde," & vbNewLine & "Ihre Bestellung mit der Nr. " & Forms![Bestellungen]![Bestell-Nr] & " wurde soeben per DPD abgeschickt." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Paketverfolgung: http://www.dpd.com/tracking_de/(lang)/de" & vbNewLine & "Die Paketnummer ist: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(es kann einige Stunden dauern, bis die Datenbank aktualisiert wurde)" & vbNewLine & _ "Die Lieferadresse ist:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Eine vollständige Bestell-Historie finden registrierte Kunden online im Kundenbereich." & vbNewLine & vbNewLine & "mit freundlichen Grüßen" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/index.htm" & vbNewLine & "http://www.pipe-shop.net" End If If Forms![Bestellungen]![Sprache] = "English" Then Message.Subject = "Your order from the German Pipe Shop has been dispatched." If Forms![Bestellungen]![Feld239] = "DHL_National" And Forms![Bestellungen]![Sprache] = "English" Then Message.Text = "Dear customer," & vbNewLine & "we inform you that your order no. " & Forms![Bestellungen]![Bestell-Nr] & " is shipped out as registered parcel just now." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Tracking: http://nolp.dhl.de/nextt-online-public/track.do?lang=en" & vbNewLine & "The tracking number is: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(the data base need one day or more to be updatet)" & vbNewLine & vbNewLine & _ "we have send your order to:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Registered customers can find the complete order-history in the new customer area." & vbNewLine & vbNewLine & "Kind Regards" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/indexa.htm" & vbNewLine & "http://www.pipe-shop.net" End If If Forms![Bestellungen]![Feld239] = "DHL_International_Premium" And Forms![Bestellungen]![Sprache] = "English" Then Message.Text = "Dear customer," & vbNewLine & "we inform you that your order no. " & Forms![Bestellungen]![Bestell-Nr] & " is shipped out as registered parcel just now." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Tracking: http://nolp.dhl.de/nextt-online-public/track.do?lang=en" & vbNewLine & "The tracking number is: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(the data base need one day or more to be updated)" & vbNewLine & vbNewLine & _ "we have send your order to:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Registered customers can find the complete order-history in the new customer area." & vbNewLine & vbNewLine & "Kind Regards" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/indexa.htm" & vbNewLine & "http://www.pipe-shop.net" End If If Forms![Bestellungen]![Feld239] = "DPD" And Forms![Bestellungen]![Sprache] = "English" Then Message.Text = "Dear customer," & vbNewLine & "we inform you that your order no. " & Forms![Bestellungen]![Bestell-Nr] & " is shipped out as registered parcel just now." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Tracking: http://www.dpd.com/tracking/(lang)/en/" & vbNewLine & "The tracking number is: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(the data base need one day or more to be updated)" & vbNewLine & vbNewLine & _ "we have send your order to:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Registered customers can find the complete order-history in the new customer area." & vbNewLine & vbNewLine & "Kind Regards" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/indexa.htm" & vbNewLine & "http://www.pipe-shop.net" End If With Message ' Eine Adresse dem eMail Objekt hinzufügen und ' einen Verweis in eine Objekt Variable speichern Set Recipient = Message.Recipients.Add ' E-Mail Adresse hinzufügen, Internet oder ' ein Name der in Ihrem Adreßbuch steht Recipient.Name = Forms![Bestellungen]![E-Mail] ' 1= "TO:"; 2="CC:"; 3="BCC:" Recipient.Type = 1 ' Entweder Adresse im Adreßbuch finden ' oder als Internet Adresse [E-Mail-Adresse entfernt] ' auswerten lassen Recipient.Resolve End With ' Alle Änderungen im Nachrichten Objekt speichern Message.Update ' E-Mail absenden ' Mit Parameter ShowDialog := True kann die neue ' Nachricht vor dem Absenden noch einmal geprüft ' werden, ansonsten auf False setzen Message.SEND ShowDialog:=True Session.LOGOFF MsgBox ("Nachricht wurde versandt") Set Session = Nothing ' Object Variable löschen. MAPIExit: Exit Sub MAPITrap: errObj = Err - vbObjectError 'OLE Automation Fehler Select Case errObj Case 275 ' Das Absenden der Nachricht ' wurde abgebrochen Resume MAPIExit Case Else errMsg = MsgBox("Error " & errObj & " kam zurück.") Resume MAPIExit End Select End If End Sub

<p>Hallo Forum</p><p>vor Jahren war Pegesus mein favorisierter Mail-Client, bis ich doch auf Outlook umsteigen musste.</p><p>Pegasus trauere ich noch immer hinterher.</p><p>Ich bin darauf angewiesen aus Microsoft Access heraus, mit Daten aus Access, mails zu senden.</p><p>Das habe ich mit Pegasus nie hin bekommen. </p><p>Ich würde gerne einen neuen Versuch starten. Kann mir jemand dabei helfen?</p><p>Mit Outlook war das Problem leicht zu lösen.</p><p>Auszug aus dem Script:</p><p>Private Sub EmailVersenden_Click() If IsNull(Sprache) Then MsgBox "keine Sprache angegeben" Else Forms!Bestellungen!Lieferdatum = Date Dim Session As Object Dim Message As Object Dim Recipient As Object Dim errObj As Long Dim errMsg</p><p>Auszug end--</p><p> </p>

<p>Hallo Archimedes,</p><p> </p><p>ich habe es bisher noch nicht in dieser Weise benutzt, habe es aber gerade einmal ausprobiert und sehe keine Probleme:</p><p>bei Access 2010 gibt es den Reiter E-Mail-Liste. Beim Anklicken wurde nach dem Datei-Typ gefragt (Excel, pdf, ...). Nach Anklicken öffnete sich das von mir als Standard-E-Mail-Programm eingestellte PEGASUS und im Anhang war die Datei (Ich habe pdf gewählt).</p><p> Ich habe die Datei dann an mich verschickt und festgestellt, dass der Titel eine wilde Buchstagen-Ziffern-Kombination war (sieht aus wie eine Identifizierungs-Nummer eines Programms aus der Windows-Registry, vielleicht weil ich die Access-Datei noch nicht mit einem Namen versehen und gespeicher hatte.). Und die Datei hatte erst einmal keine Dateiendung. Vielleicht muss man da noch mal schauen, wie man das besser hinkriegt. Nach Empfang per Mail und Speicherung gab ich ihr die Endung.pdf und sie war wunderbar als meine Daten aus Access zu lesen.</p><p> Viele Grüße</p><p>H.G.P. </p><p> </p>