Erklärung
30.12.2011 13:34:56
kurt
Hallo NoNet,
danke für die Unterstützung.
Ich versende per Makro eine Excel-Datei.
Daher wollte ich diese Zeile in 9Schriftgröße und Rot reinsetzen.
Hier das Makro:
Sub Datei_zu_Lotus()
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"
.SendTo = "Kurt@T-online.de"
.Subject = "Testdatei von: " _
& Worksheets("Test").Cells(3, 6).Value _
& " " & Worksheets("Test").Cells(3, 8).Value _
& " / welcher Vorgang: " & Worksheets("Test").Cells(12, 10).Value _
& " / " & Worksheets("Test").Cells(13, 8).Value _
& " = " & Worksheets("Test").Cells(13, 10).Value _
& Chr(13) & " / " & Worksheets("Test").Cells(14, 8).Value _
& " = " & Worksheets("Test").Cells(14, 10).Value
.Sign = "0"
.SaveMessageOnSend = True
' 'Der Anhang
Set AttachME = doc.CREATERICHTEXTITEM("Attachment")
' Set EmbedObj = AttachME.EmbedObject(1454, "", "DeinKompletterPfadUndDatei", "")
Set EmbedObj = AttachME.EmbedObject(1454, "", AWS, "")
.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 = Nothing
Set AttachME = Nothing
Set uidoc = Nothing
Set Workspace = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
MsgBox "Jetzt Lotus ""aktivieren"", " _
& Chr(13) & Chr(13) & "Datei wurde erfolgreich kopiert ! "
End Sub
gruß Kurt K
(P.S.Walter mb war von meinem Vater)