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!!
vielen Dank! Dies hilft mir schon weiter…wenn man es weiss ist es immer einfach
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“?
vielen Dank! Dies hilft mir schon weiter…wenn man es weiss
ist es immer einfach
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“
