Hallo,
schon wieder Email ;)
Ich erstelle von Acc aus eine Mail mit Anhang. Hole mir dann noch die Signatur dazu.
Klappt alles nur nicht wenn in der Signatur ein Bild ist. Dann kommt der Hinweis,
das Bild kann nicht dargestellt werden zu wenig Arbeitsspeicher.
Gehe ich über Signatur und füge da die Signatur ein ist alles OK.
Umgebung: Win XP, Acc 2003, Outlook 2007
Gruß
Johann
Hallo,
ZitatIch erstelle von Acc aus eine Mail mit Anhang. Hole mir dann noch die Signatur dazu.
Lass mal den Code dazu sehen bitte.
Die Ursachen für die Fehlermeldung - kannst du auch die, am Besten als Screenshot zeigen - können recht vielfältiger Natur sein
Hallo Peter,
danke das Du dir das Problem annimmst.
Hier der Code:
Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function
Sub EmailsendenHTML(MailAdresse, ZwDatei, ZwBetreff, ZwNachricht)
' MailAdresse = E-Mail Adresse aus Kundenstamm
' ZwDatei = Pfad/Dateiname PDF-Datei
' ZwBetreff = Betreffzeile
' ZwNachricht = Nachricht im HTM-Format ohne Signatur
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("Signatur", dbOpenDynaset)
Rs.FindFirst "ID = 1"
If Rs.NoMatch Then
MsgBox ("Tabelle Signatur fehlt oder defekt")
Exit Sub
End If
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String
' Outlook starten
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = ZwNachricht
SigString = Rs!signatur
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
'Mail erstellen mit angepasster Signatur
With OutMail
.Display
.Subject = ZwBetreff
.To = MailAdresse
'.CC = "test1@test.de" ' nicht benötigt
.Attachments.Add ZwDatei
.HTMLBody = strbody & "<br><br>" & Signature
'.Send ' nicht direkt senden
End With
Set OutApp = Nothing
Set OutMail = Nothing
End Sub
Meldung:
Das Bild kann nicht angezeigt werden.
Dieser Computer verfügt möglicherweise über zu wenig
Arbeitsspeicher, um das Bild zu öffnen, oder das Bild ist
beschädigt. Starten Sie den Computer neu, und öffnen Sie dann
erneut die Datei. Wenn weiterhin das rote x angezeigt wird,
müssen Sie das Bild möglicherweise löschen und dann erneut einfügen.
Die Meldung kommt unabhängig davon welches Bild ich auswähle.
Normales einfügen der Signatur klappt.
Datei:
C:\Dokumente und Einstellungen\Budde\Anwendungsdaten\Microsoft\Signatures\Borkum.htm
Hoffentlich kannst Du da was mit anfangen.
Andere dürfen auch gern helfen.
Gruß
Johann
an welcher stelle erscheint die Fehlermeldung?
nur mal so geraten, du versuchst das Bild in einen String zu quetschen?
mfg
Hallo,
die Fehlermeldung erscheint wenn die Mail angezeigt wird.
Das Bild ist in der Signatur mit der Schaltfläche Bild eingefügt.
Die Signatur wiederum wird dem Body (halt Sehr geehrte Damen und Herren...) hinzugefügt.
Mache ich die Mail per Hand klappt die ganze Geschichte. Lass ich das Bild bei der Signatur weg klappt es auch.
Gruß
Johann
Hallo,
habe den Code mal nachgebaut (allerdings das Auslesen des Signaturpfades aus einer Tabelle auskommentiert) und erhalte beim Ausführen im Direktfenster keine Fehlermeldung, soll heißen, die Signatur wird mit Bild korrekt eingefügt.
Prüfe mal, ob in der Tabelle der richtige PFad und Dateiname der Signatur angegeben ist und wie das Bild im HTML-Code der Signatur behandelt wird.
Bei mir sieht der entspr. HTML-Teil so aus (mit src-Tag auf eine Bilddatei):
<P class=MsoNormal align=left><SPAN
style="FONT-FAMILY: Arial; COLOR: black; FONT-SIZE: 10pt"><IMG
style="WIDTH: 111px; HEIGHT: 95px" border=0 hspace=0 alt="" align=baseline
src="C:\Dokumente und Einstellungen\Franz.QUIX\Eigene Dateien\Eigene Bilder\Bild2.jpg"
width=111 height=176></SPAN></P>
und angepasster Code:
If Dir(SigString) <> "" Then
Signature = GetBoiler("C:\Dokumente und Einstellungen\Franz.QUIX\Anwendungsdaten\Microsoft\Signatures\Test.htm")
Else
Signature = ""
End If
Hallo Franz,
mit dem HTML-Teil komme ich so nicht klar.
Wo kann ich das prüfen bzw. wo muss der hin?
Wäre schön wenn du mir da genauere Angaben machen könntest.
Gruß
Johann
Hallo Franz,
komme jetzt doch klar. Hatte nicht gesehen das du das Bild seperat und nicht als Teil der Signatur eingefügt hast.
Vielen Dank.
Gruß
Johann
Hallo,
das versteh ich jetzt nicht...
Das Bild ist IN der Signatur, die selber HTML-Code ist, mit dem SRC-Tag als Link auf eine Bilddatei eingebunden (über Signatur/bearbeiten/Bild einfügen).