Elite Veteran
Beiträge: 868
  
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
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |
