Lotus aus Excel verkleinern
18.11.2008 10:33:46
Kurt
ich habe folgendes Makro für den Versand der Excel - Daten nach Lotus,
ich möchte aber das kopierte in Lotus verkleinert darstellen, damit man dies im Hochformat ausdrucken kann.
Sub LASelektionMailMitAnhangUndScreenshotLotusDatenbank()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim objRTITEM As Object
Dim Workspace As Object
Dim uidoc As Object
Dim zeile As Long
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
If db.IsOpen = False Then db.OPENMAIL
Set doc = db.CreateDocument
Set objRTITEM = doc.CREATERICHTEXTITEM("body")
Call objRTITEM.APPENDTEXT("Walter1" & vbLf & "Walter2")
Set doc = db.CreateDocument
With doc
.form = "Memo"
.Subject = "Datenbank vom: " _
& Format(Sheets("Daten").Cells(2, 13).Value, ("dd.mm.yyyy"))
.Sign = "0"
.SaveMessageOnSend = True
.PostedDate = Now()
End With
'Mail in LN anzeigen zum Einfügen
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = Workspace.EDITDOCUMENT(True, doc)
'Den Tabllenbereich oder ScreenShot einfügen
With uidoc
.GOTOFIELD ("Body")
' Tabellenbereich
' Selection.Copy 'kopiert den selektierten Teil deines aktiven Tabellenblatts in die _
Zwischenablage
' ActiveWindow.Zoom = 80 ?
Selection.Copy 'kopiert den selektierten Teil deines
.Paste 'und fügt Kopiertes in die Mail ein
End With
Set EmbedObj = Nothing
Set AttachME = Nothing
Set uidoc = Nothing
Set Workspace = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
MsgBox "Jetzt zu Lotus ""gehen"", " _
& Chr(13) & Chr(13) & "Datenbank wurde kopiert ! "
End Sub
mfg Kurt P