personalisierte Ansprache in Mail an unterscheidliche Empfänger
Poul
Gesendet: 26.07.12 09:21
Betreff: personalisierte Ansprache in Mail an unterscheidliche Empfänger


Hallo Experten,

ich habe wieder mal ein Problem. Ich möchte eine persönlcihe Ansprache zu jeder E-Mail

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.

Ist das möglich? Wäre euch wie immer sehr sehr dankbar!




Public Sub Befehl3_Click()
'sendet Serienmail an alle auf Deutsch

Dim OutVerz As Object
Dim OutMail As Object
Dim OutMapi As New Outlook.Application

Dim CONN As Database
Dim dbs As Recordset
Dim strText As String
Const Titel = "Diagnosis strategy"

Set CONN = CurrentDb()
strText = "SELECT Mail from AbfrageMailAdressenEmpfänger"
Set dbs = CONN.OpenRecordset(strText)


Do Until dbs.EOF



Set OutMail = OutMapi.CreateItem(olMailItem)
With OutMail
.Subject = Titel
.Body = Forms![txtMail Deutsch]![Text2].Value <------------------------------------------------- Meine Idee: "Sehr geehrte" & IIf(Ansprache = "Herr", "r Herr ", " Frau ") & VAR_Nachname & "," & Text2].Value
.To = dbs!Mail
.Attachments.Add "C:\Users\Desktop\Musterpraesentation_Qualitaet_final_neu_klein.pptx"
.SaveAs "C:\Users\Desktop\Mail\" & dbs!Mail & Format(Now, "_DD.MM.YYYY_hh.mm") & ".msg"
.Send
On Error Resume Next


DoCmd.Close acForm, "txtMail Deutsch" 'nach dem senden wird txtFormular geschlossen
End With


dbs.MoveNext
Loop


Set OutVerz = Nothing
Set OutMail = Nothing


MsgBox ("Mail wurde an Empfänger versendet")

End Sub

Edited by Poul 26.07.12 09:30
Top of the page Bottom of the page