.Body mit Excel Tabelle füllen

27/02/2008 - 15:38 von Oliver Ott | Report spam
Hallo!

Ich habe bereits recherchiert, bin aber trotz der Beitràge zu diesem
Thema nicht weitergekommen.

*****
Mein Rechner:
Win XP Pro
Office 2003

Mein Code:
*****
Dim oOutlook As Object
Dim myMail As MailItem

Set oOutlook = CreateObject("outlook.application")
Set myMail = oOutlook.CreateItem(olMailItem)

With myMail
.Recipients.Add (liste)
.Attachments.Add "H:\info.xls"
.HTMLBody = SignaturAuslesen 'Extrafunktion
.Display
.Send
End With
*****

Prinzipiell will ich einen kleinen Bereich einer Excel Tabelle via
Mail versenden. Das funktioniert mit obigem Code einwandfrei.

Allerdings immer nur als Anhang.

Wenn ich in obiger Tabelle den gewünschten Zellbereich Über Copy&Paste
in eine leere Mail einfüge, dann wird aus der Tabelle kein Anhang
sondern die Zellen werden iklusive der Formatierungen in der Mail
dargestellt, nicht als Anhang.

Wie kann ich letzteres Verhalten mit VBA Code realisieren?
Wie kann ich einen Zellbereich in den Body einer Mail einfügen?

Diverse Versuche mit .htmlbody sind gescheitert.

Bitte gebt mir einen kurzen Hinweis, wie ich zur Lösung komme.

Danke!
Oliver Ott

P.S.: Den Weg über "Datei" --> "Senden an" soll hier nicht verwendet
werden.
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
27/02/2008 - 18:31 | Warnen spam
Am Wed, 27 Feb 2008 06:38:52 -0800 (PST) schrieb Oliver Ott:



Hallo!

Ich habe bereits recherchiert, bin aber trotz der Beitràge zu diesem
Thema nicht weitergekommen.

*****
Mein Rechner:
Win XP Pro
Office 2003

Mein Code:
*****
Dim oOutlook As Object
Dim myMail As MailItem

Set oOutlook = CreateObject("outlook.application")
Set myMail = oOutlook.CreateItem(olMailItem)

With myMail
.Recipients.Add (liste)
.Attachments.Add "H:\info.xls"
.HTMLBody = SignaturAuslesen 'Extrafunktion
.Display
.Send
End With
*****

Prinzipiell will ich einen kleinen Bereich einer Excel Tabelle via
Mail versenden. Das funktioniert mit obigem Code einwandfrei.

Allerdings immer nur als Anhang.

Wenn ich in obiger Tabelle den gewünschten Zellbereich Über Copy&Paste
in eine leere Mail einfüge, dann wird aus der Tabelle kein Anhang
sondern die Zellen werden iklusive der Formatierungen in der Mail
dargestellt, nicht als Anhang.

Wie kann ich letzteres Verhalten mit VBA Code realisieren?
Wie kann ich einen Zellbereich in den Body einer Mail einfügen?

Diverse Versuche mit .htmlbody sind gescheitert.

Bitte gebt mir einen kurzen Hinweis, wie ich zur Lösung komme.



Hallo Oliver,

was möchtest Du denn, den reinen Text im Body oder eine Datei als Anhang?

Viele Gruesse
Michael Bauer - MVP Outlook
Outlook-Kategorien? Dann dieses Tool:
<http://www.VBOffice.net/product.htm...ail&id 06063&pub=6>

Ähnliche fragen