Mailtext Personalisieren

Hallo ihr Kenner,

wie immer vertraue ich auf eure professionelle Hilfe…
Ich habe es nunendlich geschafft, ein Code zu schreiben (der sogar noch funktioniert!) um Outlook zu öffnen und schon mal Emailadresse sowie den Betreff korrekt anzeigen zu lassen…
Der Code sieht wie folgt aus:

Private Sub Befehl30_Click()
Dim olAppOutlook As Outlook.Application
Dim oItem As Outlook.MailItem

Set olApp = New Outlook.Application
Set oItem = olApp.CreateItem(olMailItem)

With oItem
.To = Mail
.Subject = „Auswertung“
.Body = „Anbei die Auswertung Ihres Test“
.Display
End With

End Sub

Soweit… Nun möchte ich dass auch noch „Sehr geehrte Frau + Name (oder Sehr geehrter Herr+Name, falls männlich),“ im Textkörper einbinden.
Kann mir jemand helfen??

Vielen Dank!! und noch ein schönen Nachmittag an alle!!

Silke

Hallo Silke,

.Body = „Anbei die Auswertung Ihres Test“

mangels Informationen hier ein Allgemeines Beispiel:

.Body = „Sehr geehrte“ & VAR_Anredekürzel & VAR_Nachname & „,“ &vbCRLF & vbCRLF & „Anbei die Auswertung Ihres Test“

in Anredekürzel steht dann entweder " " oder "r "

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

Hallo Wolfgang…

vielen Dank! Dies hilft mir schon weiter…wenn man es weiss ist es immer einfach :wink:

in Anredekürzel steht dann entweder " " oder "r "

Ich habe in einer Tabelle auch ein Feld „Geschlecht“, waere es moeglich so etwas einzubauen wie wenn „m“ dann „Seehr geehrter Herr“, sonnst „Seehr geehrte Frau“?

Noch einen schoenen Abend

Silke

Hallo Silke,

vielen Dank! Dies hilft mir schon weiter…wenn man es weiss
ist es immer einfach :wink:

glaube mir, auch ich lerne täglich dazu…

Ich habe in einer Tabelle auch ein Feld „Geschlecht“, waere es
moeglich so etwas einzubauen wie wenn „m“ dann „Seehr geehrter
Herr“, sonnst „Seehr geehrte Frau“?

ja, mit der IIF Funktion:

.Body = „Sehr geehrte“ & IIF(Geschlecht=„m“,"r Herr „,“ Frau ") & VAR_Nachname & „,“ &vbCRLF & vbCRLF & „Anbei die Auswertung Ihres Test“

BTW: SEHR schreibt man mit einem E

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

Hallo Wolfgang,

ja, mit der IIF Funktion:

Vielen dank, nun ist meine EMail dank dir perfekt!

BTW: SEHR schreibt man mit einem E

Sorry… wenn ich müde bin geht meine Rechtschreibung flöten… zu viele Jahre Ausland, muss mich erst wieder an die Deutsche Sprache gewöhnen…

Nochmals besten Dank für deine Antwort

Einen schönen Tag

Silke