| 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
|
