habe dieses Makro (auch über Forum):
Option Explicit
Private Declare
Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Sub MailMitAnhangUndScreenshotAllgemein()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim Workspace As Object
Dim uidoc As Object
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
If db.IsOpen = False Then db.OPENMAIL
Set doc = db.CreateDocument
With doc
.form = "Memo"
' .SendTo = "DeinEmpfänger@WoAuchImmer.de"
.Subject = "tes"
.Sign = "0"
.SaveMessageOnSend = True
' 'Der Anhang
' Set AttachME = doc.CreateRichTextItem("Attachment")
' Set EmbedObj = AttachME.EmbedObject(1454, "", "DeinKompletterPfadUndDatei", "")
.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
' Range("A7:L73" & "a74:L101").Select
Wenn ich den Bereich A8: L73 selektiere kopiert der Bereich und setzt diesen Bereich ins LotusNotes.
Wenn ich den Bereich A8:L102 selektiere, wird nur der Bereich von A8:L73 kopiert.
Habe mal einen anderen Bereich selektiert, jedesmal nur einen bestimmten Bereich ca. bis
Zeile 70-80, darüber hinaus nicht.
Warum ?
mfg walter