personalisierte Ansprache in Mail an unterscheidliche Empfänger
Karl Donaubauer
Gesendet: 26.07.12 11:17
Betreff: RE: personalisierte Ansprache in Mail an unterscheidliche Empfänger



Elite Veteran

Beiträge: 847
50010010010025
Ort: Wien
Hallo, Poul!
Poul - 26.07.12
...
Die Mail Adresse bekomm ich aus einer Abfrage in der auch die Ansprache "Herr" und "Frau" sind sowie der Nachname des jeweiligen Adresseinhabers.
Den Inhalt des Textes ziehe ich aus einem Formular.
Meine Idee war das ich irgendwie was mit "Sehr geehrte" & IIf(Ansprache = "Herr", "r Herr ", " Frau ") & VAR_Nachname & "," & schreibe.
...
Public Sub Befehl3_Click()
...
strText = "SELECT Mail from AbfrageMailAdressenEmpfänger"
Set dbs = CONN.OpenRecordset(strText)
...
.Body = Forms![txtMail Deutsch]![Text2].Value <------------------------------------------------- Meine Idee: "Sehr geehrte" & IIf(Ansprache = "Herr", "r Herr ", " Frau ") & VAR_Nachname & "," & Text2].Value
...

Wenn es die Felder "Ansprache" und "Nachname" in der AbfrageMailAdressenEmpfänger gibt, dann musst du sie nur mit reinholen und verwenden, also:

strText = "SELECT Mail, Ansprache, Nachname FROM AbfrageMailAdressenEmpfänger"
...
.Body = "Sehr geehrte" & IIf(dbs!Ansprache = "Herr", "r Herr ", " Frau ") & _
dbs!Nachname & "," & vbcrlf & vbcrlf & _
Forms![txtMail Deutsch]![Text2].Value

Übrigens sind deine Variablen-Namen für das Recordset usw. missverständlich. "dbs" ist der üblichen Praxis nach der Name einer Datenbank-Objektvariable nicht eines Recordsets. Usancengerechter und damit besser lesbar wäre z.B.

Public Sub Befehl3_Click()

Statt "Befehl3" sollte die Schaltfläche einen sprechenden Namen haben z.B. "btnMail" oder "cmdOL".

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Const strcTitel As String = "Diagnosis strategy"

Set db = CurrentDb()
strSQL = "SELECT Mail, Ansprache, Nachname FROM AbfrageMailAdressenEmpfänger"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

usw.

-----
Servus
Karl
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page