Problem mit Variablen und Zeilenumbruch in HMTL-Body (Access - > Outlook)

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen
Ich erstelle eine Access Procedur, mit welcher ich von Access aus HMTL-Emails in Outlook erstellen möchte. Bezüglich des Abschnitts für den HMTL-Body habe ich folgenden code:

With CreateObject("Outlook.Application").CreateItem(0)
    .Attachments.Add MyPath & MyPicture
    .SentOnBehalfOfName = "[email protected]"
    .To = emailTo
    .Subject = emailSubject
    .HTMLBody = "<p> <img src=cid:" & Replace(MyPicture, " ", "%20") & " height=343 width=515</p>" & _
    "<html><p><strong></strong></p> EAGLE VIEW VILLA - NEWS </p> " & _
    emailSalutation & _
    emailText
    .Send
End With

Das funktioniert so weit einigermassen.
Bis und mit der 5-t letzten Linie (…NEWS)
Aber dann habe ich das Problem, dass sowohl emailSalutation als auch emailText Variabeln sind und ich nach emailSalutation einen Zeilenumbruch haben möchte (wie machen?). Ebenso bin ich mir nicht sicher, ob nach emailText die Sache noch irgendwie abgeschlossen werden muss.
Ich hoffe, ihr vertsteht was ich meine.
Vielen, vielen Dank im Voraus.
Thomas

#2

Hallo,

der gesamte zusammengebaute String für die .HTMLBODY-Eigenschaft muss dem HTML-Format entsprechen.

Siehe: https://www.html-seminar.de/befehlsuebersicht.htm

Variablen (wo sind die wie deklariert und gesetzt?) werden einfach mit dem „&“-Operator angehängt, bzw. „eingefügt“:

Dim MyPicture as String,emailSalution as String, emailText As String

txt MyPicture = "IrgendeinBilde.png"
txtemailSalution ="Meine lieben Freunde und Spezis."
txtemailText = "Hier meine neue Email!"
.
.
.
.
.HTMLBody = "<html><p> <img src=cid:" & Replace(txtMyPicture, " ", "%20") & " height=343 width=515</p>" & _
    "<p><strong> EAGLE VIEW VILLA - NEWS </strong></p><br>" & _
    "<p>" & txtemailSalutation & "</p><br>" & _
    "<p>" & txtemailText & "</p></html>"
.
.

Mit
debug.print .HTMLBody

kann der HTML-String im Direktfenster auf Fehler hin visuell untersucht werden

Gruß
Franz
DF6GL

#3

Korrektur:

Dim txtMyPicture as String, txtemailSalutation as String, txtemailText As String

txtMyPicture = „IrgendeinBilde.png“
txtemailSalutation =„Meine lieben Freunde und Spezis.“
.
.

#4

Hallo Tom, einen Zeilenumbruch in HTML erreichst du mit dem Tag „br“ (In eckigen Klammern natürlich). Wenn die beiden Variablen keinen HTML-Text enthalten, sondern normalen Text (also ohne die Tags), muss du vor und nach den Variablen noch die Tags (also p etc) einfügen. Ganz am Schluss fehlt glaube ich noch der schließende Tag vom html. Die Zeilenumbrüche, die du eingefügt hast, gelangen nicht bis zum HTML-Interpreter und bewirken gar nichts. Die beiden „strong“ Tags sind so auch überflüssig, weil dazwischen kein Text steht. Der /p Tag nach dem strong-Tag ist zuviel.
Schöne Grüße
Egon