VBA Fragen

[Ike]

Hallo,

ich benutze den folgenden Code aus dem internet für ein einfaches Makro um in Outlook eine eMail mit den entsprechenden Einstellungen zu öffnen. Kann mir jemand sagen, wie ich eine Tabelle, die ich vorher als Range definiere dann dort unter den Text einfügen kann?

Ausserdem wollte ich noch fragen, wie ich einen Empfänger als Kopie einfügen kann.

Vielen Dank im Vorraus !

 

 

Dim olApp As Object
   Set olApp = CreateObject("Outlook.Application")
   With olApp.CreateItem(0)



       .Recipients.Add Worksheets("settings").Range("D4")


       .Subject = Worksheets("settings").Range("D8")


       .Body = Worksheets("settings").Range("D10") 


       .ReadReceiptRequested = False

       .Display

[jim76]

Hallo,

ich benutze den folgenden Code aus dem internet für ein einfaches Makro um in Outlook eine eMail mit den entsprechenden Einstellungen zu öffnen. Kann mir jemand sagen, wie ich eine Tabelle, die ich vorher als Range definiere dann dort unter den Text einfügen kann?

Ausserdem wollte ich noch fragen, wie ich einen Empfänger als Kopie einfügen kann.

Vielen Dank im Vorraus !

 

 

Dim olApp As Object
   Set olApp = CreateObject("Outlook.Application")
   With olApp.CreateItem(0)



       .Recipients.Add Worksheets("settings").Range("D4")


       .Subject = Worksheets("settings").Range("D8")


       .Body = Worksheets("settings").Range("D10") 


       .ReadReceiptRequested = False

       .Display

 

Was hat das mit Wertpapieren zu tun, wenn ich mal fragen darf?

[xolgo]

Hallo,

ich benutze den folgenden Code aus dem internet für ein einfaches Makro um in Outlook eine eMail mit den entsprechenden Einstellungen zu öffnen. Kann mir jemand sagen, wie ich eine Tabelle, die ich vorher als Range definiere dann dort unter den Text einfügen kann?

 

Wie soll die Tabelle in Text verwandelt werden?

 

Ausserdem wollte ich noch fragen, wie ich einen Empfänger als Kopie einfügen kann.

 

.cc = "em@il"

[AlbertEinstein]

BodyFormat auf HTML umstellen, und dann HTML Code erzeugen. Soll einfach das ganze Tabellenblatt eingefügt werden gibt es dafür auch eine eingebaute Funktion in Excel:

 

   	.BodyFormat = olFormatHTML
   	.HTMLBody = ThisWorkbook.HTMLProject.HTMLProjectItems("Sheet1").Text

 

Kann mir jemand sagen, wie ich eine Tabelle, die ich vorher als Range definiere dann dort unter den Text einfügen kann?

[Ike]

Danke euch, ich hab schon gemerkt dass ich da etwas umfangreicher vorgehen muss. Hab zum Glück eine gute vorlage für den html body gefunden und das genügt meinen ansprüchen