Bild in Email einfügen

Moderator: ModerationP

Bild in Email einfügen

Beitragvon Larissa_Birsgal » 29. Dez 2018, 09:13

Hallo liebes Outlook Forum,

es ist wie verhext. Ich nutze dieses Makro schon viele Jahre und plötzlich wird das Bild nicht mehr in die Email eingefügt.
An der Outlookversion (2013) hat sich nichts verändert.
Das Bild soll über den Pfad in einer Exceltabelle (B3) eingefügt werden.
Hier ist der ganze Code:

Option Explicit

Sub Email_mit_Anhang()

Dim sSheet As String
Dim sText As String
Dim sTo As String
Dim sSubject As String
Dim sAttach As String

Dim lRow As Long
Dim myRng As Range

With ActiveSheet
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row

sSubject = Sheets("Text").Range("A2").Value 'Betreff
For Each myRng In .Range(.Cells(2, 1), .Cells(lRow, 1))

If myRng.Value = "x" Then
sTo = .Cells(myRng.Row, 11).Value 'Emailadresse
sText = "<font style=""font-family: Calibri; font-size: 11pt;"">"
sText = sText & .Cells(myRng.Row, 6) & "<br><br>" 'Anrede
sText = sText & Sheets("Text").Range("B2").Value 'Emailtext

'Bild
sText = sText & "<img src="
sText = sText & Sheets("Text").Range("B3").Value & ">"
sText = sText & "</a>" & "<br><br>"
sText = sText & Sheets("Text").Range("B4").Value 'Emailtext

sAttach = .Cells(myRng.Row, 13)

Call SendMailOutlook(sSubject, sTo, sText, sAttach) 'verschicken

End If

Next myRng
End With

End Sub

Private Sub SendMailOutlook(sSubject, sTo, sText, sAttach)
Dim olApp As Object
Dim olOldBody As String

'Make Email
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlbody
.To = sTo
.Subject = sSubject
.htmlbody = sText & olOldBody

If sAttach <> "" Then
.Attachments.Add sAttach
End If

If Sheets("Text").Range("C2").Value <> "" Then
.Attachments.Add Sheets("Text").Range("C2").Value
End If
If Sheets("Text").Range("D2").Value <> "" Then
.Attachments.Add Sheets("Text").Range("D2").Value
End If
If Sheets("Text").Range("E2").Value <> "" Then
.Attachments.Add Sheets("Text").Range("E2").Value
End If
If Sheets("Text").Range("F2").Value <> "" Then
.Attachments.Add Sheets("Text").Range("F2").Value
End If

End With

End Sub

Ich freue mich über Eure Hilfe.
Larissa_Birsgal
 

Re: Bild in Email einfügen

Beitragvon Nepumuk » 29. Dez 2018, 10:33

Hallo Leser,

Larissa hat die Frage in einem anderen Excelforum gestellt und dort eine Beispieldatei hochgeladen. Ich bin so frei diese Datei hier verlinken: http://www.herber.de/bbs/user/126367.xlsm
De fontibus non est disputandum

Gruß
Nepumuk 8-)
Benutzeravatar
Nepumuk
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14456
Registriert: 10. Aug 2004, 08:40
Wohnort: Regensburg

Re: Bild in Email einfügen

Beitragvon mumpel » 29. Dez 2018, 10:46

Ich habe im anderen Forum eine Antwort gegeben (da ist auch die Codedarstellung besser :wink:)
Benutzeravatar
mumpel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8128
Registriert: 09. Jan 2005, 15:20
Wohnort: Lindau (B)

Re: Bild in Email einfügen

Beitragvon mumpel » 29. Dez 2018, 11:21

Problem gelöst. Da fehlen Anführungszeichen. Links (a, img) müssen immer in Anführungszeichen stehen.
Benutzeravatar
mumpel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8128
Registriert: 09. Jan 2005, 15:20
Wohnort: Lindau (B)


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste