Email Outlook Signatur

[Jonny]

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

[database]

Hallo,

Ich 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

[Jonny]

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

[Klingon 33]

an welcher stelle erscheint die Fehlermeldung?
nur mal so geraten, du versuchst das Bild in einen String zu quetschen?

mfg

[Jonny]

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

[DF6GL]

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):

Code [Auswählen] Erweitern

<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:

Code [Auswählen] Erweitern


   If Dir(SigString) <> "" Then
       Signature = GetBoiler("C:\Dokumente und Einstellungen\Franz.QUIX\Anwendungsdaten\Microsoft\Signatures\Test.htm")
     Else
       Signature = ""
   End If

[Jonny]

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

[Jonny]

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

[DF6GL]

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).