Office: Mail mit Grafik und Signatur aus Excel verschicken

Hallo VBA-ler,

versuche gerade aus Excel heraus mit Outlook eine Mail zu verschicken (Office 2010 mit Windows 7). *rolleyes.gif*
Entweder klappt aber die Einbindung des Excel-Graphen in den Mailbody nicht (".BODY") oder die Signatur ist ohne Umbrüche dargestellt (".HTMLBODY").*frown.gif*
Des Weiteren sollte die Grafik auch kleiner dargestellt werden (skaliert einfügen), als die, die ich aktuell als zwischengespeicherte png-Datei einfüge.

Wer kann mir hierzu helfen?

Danke vorab.

:)

 

Hi Stefan,

wenn die Grafik kleiner als in der Arbeitsmappe in die Mail eignefügt werden soll, dann musst du sie vor dem Exporiteren entsprechend verkleinern.

Bild und Text kannst du nach dem Prinzip im angehängten Bild miteinander verbinden.
Code lässt sich nicht direkt hier posten, da die Forensoftware den Teil für das Bild direkt umzusetzen versucht und anstelle des Codeteils hier ein leeres Quadrat zu sehen ist.

 

Hi Stefan,
wenn die Grafik in jeder Mail gleich sein sollte....
dann erstelle im outlook die Mail nach Deinen Wünschen, speichere diese als MSG-File ab und öffene diese als Template für Deinen in Excel erstellten Mailauftrag.
Reine vermutung, da noch nicht ausprobiert *rolleyes.gif*
Erstelle eine Vorlage und versuche mal mit replace die Grafik gegen eine andere auszutauschen.

Vielleicht ist das ein Ansatz

Gruß
DeBabba

 

Hallo Karin,

danke für die Antwort, aber ich bin nicht so firm das von Dir genannte anzupassen. Des Weiteren hat sich die Anforderung nun insofern geändert, dass ich im Bereich der Zellen A1:N62 nun 4 Grafiken habe und diesen Bereich nun skaliert um x% als Teil des Mailbodys einbinden will.

Wenn ich automatisch eine Mail erzeuge, ist meine komplette Signatur incl. Logo schon enthalten, das ganze lege ich ab, platziere meinen Text + Bild + Signatur aus Ablage (hier verschwindet allerdings mein Logo) und fertig.

Allerdings brauche ich das nun
1. skaliert,
2. für A1:N62 (Ansicht der Auswertungen mit Textzellen und 4 Charts)
3. mit der richtigen Formatierung der Signatur

Hier mein Code:

Set olApp = CreateObject("Outlook.Application")
Worksheets("Metrics").ChartObjects ("Chart 1").Chart.Export "C:\Charts.png"

'Sollte nun ersetzt werden durch Druckansicht

With olApp.createitem(0)
.to = Mailadresse
.Subject = Betreff
.GetInspector
Text1 = .Body
graph = " < img src = 'C:\Chart1.png' > "
.HTMLBody = Text & graph & vbCrLf & Text1

Hast Du eine Idee?

Übrigens für DeBabba: Der Betreff ist abhängig vom Datum und ein PDF eines anderen Tabellenblattes aus derselben Datei ist als Anhang angefügt...

 

Hi Stefan,

zu 1. hatte ich schon etwas geschrieben

zu 2. du kannst einen Bereich kopieren und als Bild in die Arbeitsmappe einfügen, dieses Bild dann in ein leeres Diagramm einfügen und dieses Diagramm dann (wie gehabt) exportieren

zu 3. vielleicht solltest du die Zeile .GetInspector ans Ende setzen, wenn die Signatur unterhalb erscheinen soll.

 

Hi Stefan,
getinspector muss zum Schluss hin,
da die Signatur ja ans Ende der Mail sollte
Gruß

 

wenn ich getinspector ans Ende setze, dann ist gar keine Signatur dabei, sage doch der Code ist zu korrigieren!
Kann mir jemnand mit Code behilflich sein - habe mir schon nen Wolf gegoogled..*boah

 

Kann es denn wirklich sein, dass mir hierzu niemand helfen kann?

 

das Thema ist noch offen - Hast Du eine Idee?

 

Hallo - hast Du noch ne Idee?