Hallo H.G.P.
ja, soweit kein Problem.
Ich möchte aber keine Datei anhängen sondern Daten aus Access 2003 auslesen und im e-mail Text verwenden.
Das komplette Script sieht so aus:
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
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