ich möchte Ranges und einzelne Diagramme in den Body einer Mail packen,
die an Lotus Notes gesandt werden soll.
Im Body (RichText) sollen diese dann formatiert sichtbar sein.
Hat jemand eine Idee, wie das gehen mag?
Bert
Private Sub CommandButton1_Click()
Dim session As Object
Dim Maildb As Object
Dim maildoc As Object
varEmpf = Array("a@b.de", _
"b@c.de")
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CurrentDatabase
Set maildoc = Maildb.CreateDocument
maildoc.Form = "Memo"
maildoc.Subject = "Testmail"
Sheets("Tabelle1").Activate
maildoc.Body = ?
Call maildoc.Send(True, varEmpf)
Set maildoc = Nothing
Set Maildb = Nothing
Set session = Nothing
MsgBox "die Mail wurde versandt"
End Sub
An das Diagramm würde ich eventuell über diesen Weg rankommen:
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("test2.xls").Activate
Sheets("Tabelle2").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveWindow.Visible = False
Windows("test2.xls").Activate
Sheets("Tabelle1").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate