Office: (Office 2016) Email mit Bild im Textfeld

Hallo,

ich versende Emails aus Access und gebe den Text in einem Textfeld (im Formular) dafür ein.

Ist es möglich statt Text ein Bild zu versenden und wenn ja wie?

Viele Grüße
Manutib

:)

 

Wer suchet der findet...

 

Hallo Elmar,

wenn ich eine Email aus Access heraus versende was, via Outlook, auch gut funktioniert. Den Text für die Email gebe ich in ein Textfeld im Formular ein, funktioniert auch gut.

Jett meine Frage bzw. Idee: Ist es möglich, dass ich statt Text ein Bild versende. Das Bild erscheint dann im Email-Textfeld des Empfängers statt Text.

Viele Grüße
André

 

Ja natürlich.
Du wirst auch in diversen Outlook Foren dazu detaillierte Lösungen finden.
Hier im Access Forum bist du falsch.

Es ist übrigens kein entweder Text oder Bild.
Das kann man mischen wie man will. HTML macht da alles möglich.

 

Du könntest ja mal Deinen bisherigen Code zeigen.
Das Stichwort heißt HTMLBody.

 

Auf der von mir verlinkten Seite ist das nachzulesen und auch beschrieben:
Über die Eigenschaft Code:

kann man Dateien als Anhang hinzufügen.

 

Hallo elmar,

ich dachte, er meint ein Bild im Bodytext...!?

 

Auch beim Body muss das Bild so viel ich mich erinnere erstmal zu den Attachments, bevor man es verwenden kann.

 

Hallo fraeser,

hier mein bisheriger Code für eine Serien-Email. Die Daten wie Emaiol und Anrede nehme ich aus einer Liste im gleichen Formular.

Code:
Dim strDateiname As String
Dim strBetreff As String
Dim strAnrede As String
Dim strText As String
Dim strEmail As String
Dim weiter As Integer
Dim anzahl As Integer

Me![Liste0].Requery
anzahl = Me![Liste0].ListCount
weiter = 0

Do While anzahl > 0
Me![Liste0].Selected(weiter) = True ' Listensatz anspringen

'Forms.FM_Adressen.[rechnungsnummer] = [BU_Rechnungsnummer]
If [anhang] = "Mit Email Anhang" Then
strDateiname = [nameAnhang]
End If
strBetreff = [betrifft]
strAnrede = Me![Liste0].Column(1)
strEmail = Me![Liste0].Column(0)

Set obj_outlook = CreateObject("Outlook.Application")
Set objMail = obj_outlook.CreateItem(0)
With objMail
.To = strEmail
.Subject = strBetreff
.Body = strAnrede & vbCrLf & vbCrLf & vbCrLf & [text1] & vbCrLf & vbCrLf & vbCrLf & [text2] & vbCrLf & vbCrLf & vbCrLf & [Text3] & vbCrLf & vbCrLf & vbCrLf & [gruß] & vbCrLf & vbCrLf & [von] & vbCrLf & vbCrLf
If [anhang] = "Mit Email Anhang" Then
.Attachments.Add ("C:UsersandreDesktopSammelemail" & "" & strDateiname & ".pdf")
End If
.Send '.Display
End With

anzahl = anzahl - 1
weiter = weiter + 1
Loop

 

Wie schon angedeutet:

Die Body-Eigenschaft nimmt nur Plaintext auf.
Für Gestaltungen darüber hinaus (Farben, Schriftarten, Bilder, ...) müsste man HTMLBody verwenden. Der Inhalt (HTML-Code) wäre da zu übergeben, diesen müsste man passend erstellen.
Dateien wie Bilder müssen auch beim Lesenden verfügbar sein (internetlesbarer Link oder direkte Mitgabe).

 

Hallo ebs17,

meine Antwort kommt etwas spät weil ich nicht im Haus war. Vielen Dank für Deine Antwort. Jetzt habe ich immer noch ein Problem. Hier noch ein mal der Code (backslash durch ! ersetzt). Was müsste ich hinter .HTLMBody eingeben um ein Dokument im tml. Format (liegt auf dem Desktop) an Stelle des Email Text in der Email zu versenden?

Me![Liste0].Requery
anzahl = Me![Liste0].ListCount
weiter = 0

Do While anzahl > 0
Me![Liste0].Selected(weiter) = True ' Listensatz anspringen

'Forms.FM_Adressen.[rechnungsnummer] = [BU_Rechnungsnummer]
If [anhang] = "Mit Email Anhang" Then
strDateiname = [nameAnhang]
End If
strBetreff = [betrifft]
strAnrede = Me![Liste0].Column(1)
strEmail = Me![Liste0].Column(0)

Set obj_outlook = CreateObject("Outlook.Application")
Set objMail = obj_outlook.CreateItem(0)
With objMail
.To = strEmail
.Subject = strBetreff
.Body = strAnrede & vbCrLf & vbCrLf & vbCrLf & [text1] & vbCrLf & vbCrLf & vbCrLf & [text2] & vbCrLf & vbCrLf & vbCrLf & [Text3] & vbCrLf & vbCrLf & vbCrLf & [gruß] & vbCrLf & vbCrLf & [von] & vbCrLf & vbCrLf
If [anhang] = "Mit Email Anhang" Then
.Attachments.Add ("C:UsersandreDesktopSammelemail" & "" & strDateiname & ".pdf")
End If
.Send '.Display
End With

anzahl = anzahl - 1
weiter = weiter + 1
Loop

 

Hallo,

siehe mal hier:
https://docs.microsoft.com/de-de/off...ion.createitem

Ulrich

 

MailItem. HTMLBody-Eigenschaft (Outlook)

 

Jett meine Frage bzw. Idee: Ist es möglich, dass ich statt Text ein Bild versende. Das Bild erscheint dann im Email-Textfeld des Empfängers statt Text.

 

Hallo oliverthom707,

deine Frage wird nicht dadurch besser, daß du sie immer wiederholst und entsprechende Antworten hast du doch jetzt auch erhalten, daß das über HTML-Mails mit eingebundenen Grafiken gemacht werden kann.

Die Technik, Grafiken als Anhang anzufügen und dann in der HTML-Mail darauf zu verweisen (sogenanntes CID image embedding) ist schon etwas veraltet. Wenn überhaupt wird mehr das "Inline embedding" verwendet, wo die Bilddaten im src-Attribut des Image-Tags Base64 kodiert direkt eingefügt werden.

Problem:
Unterschiedliche Mail-Clients zeigen Grafiken verschieden an und bei vielen wird zudem die Anzeige von Grafiken geblockt.

Für die Umsetzung benötigst du Kenntnisse in HTML. Wenn du allerdings auf eine fertige Lösung gehofft hast oder darauf, daß ein anderer dir den passenden Code schreibt, wirst du sicherlich noch etwas warten müssen, wenn überhaupt jemand dazu bereit ist.

Ulrich