Bitte DRINGEN HILFE !!! Habe Makro aber
21.07.2008 15:39:00
Walter
Bitte an ALLE,
ich habe ein Makro gefunden, getestet, es klappt, wenn ich bestimmte
Bereiche aus dem akt.Tabellenblatt kopieren und versenden will.
Jetzt habe ich eine Fehlermeldung, da ich die Datei verschicken will.
Hier das Makro:
Sub Mailmit DateiVersenden()
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
Dim zeile As Long
Dim aws
aws = ActiveWorkbook.FullName
'aws = ActiveWorkbook.Name
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@ww.de"
.copyTo = "Tes@Test.de" & "," _
& "Test.Test2.com" & "," _
.Subject = "aktuelle Zahlen /Datei"
.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) 'hier wird geschickt
Set EmbedObj = AttachME.EmbedObject(1454, "", aws, "")
With uidoc
.GOTOFIELD ("Body")
Range("A22:A34").Select ' & Range("A74:L102").Select
Selection.Copy 'kopiert den selektierten Teil deines
'aktiven Tabellenblatts in die Zwischenablage
.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) & "selektierter Bereich wurde kopiert ! "
End Sub
mfg Walter MB