Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

akt. Datum in Lotus Betreff ZEILE

Betrifft: akt. Datum in Lotus Betreff ZEILE von: Walter mb
Geschrieben am: 21.08.2008 10:20:42

Guten Morgen Allerseits,
ich habe über das Forum dieses Makro erhalten.
Es ist soweit alles i.o., das Kopieren klappt alles, jetzt
mochte ich gern das Datum in die
.Subject = "Zahlen per: " & ActiveSheet.Cells(.Cells(4, 4))
setzen, leider klappt es nicht.
Vielleicht hat jemand eine Idee,

mfg walter mb

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

Dim zeile As Long

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 = "Zahlen per: " & ActiveSheet.Cells(.Cells(4, 4))
    .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)

'--------- so kopiert den Bereich ebefalls rein ------------------
'- so muß stehen dann geht das kompl. und die Daten stehen UNTEN !!!
'- Warum auch immer

With uidoc
   .GOTOFIELD ("Body")
     
   Range("A74:L117").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
'---------------------------------------------------------------
'Den Tabllenbereich oder ScreenShot einfügen
With uidoc
   .GOTOFIELD ("Body")
   ' Tabellenbereich
   ' Selection.Copy 'kopiert den selektierten Teil deines aktiven Tabellenblatts in die  _
Zwischenablage
'---------------------------------------------
   ' Tabellenbereich
'   zeile = ActiveSheet.Cells(.Cells(8, 1), ActiveSheet.Cells(102, 12))
'   Selection = zeile
     
   Range("A7:L74").Select        ' & Range("A74:L102").Select
   Selection.Copy         'kopiert den selektierten Teil deines
                                    'aktiven Tabellenblatts in die Zwischenablage
  '- so kopiert die Ansicht ---------------------
  '  Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

'-------- für UF Maske -----------------------
    'oder ScreenShot
'''    Call MakeScreenshot(True) 'kopiert den aktuellen Bildschirm in die Zwischenablage
'---------------------------------------------
    .Paste 'und fügt Kopiertes in die Mail ein
'    .Send' um die Mail zu senden Auskommentierung aufheben
'    .Close' um Mail zu schließen Auskommentierung aufheben
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


  

Betrifft: Habe Lösung selbst gefunden ! -) von: Walter mb
Geschrieben am: 21.08.2008 10:43:47

Hallo Zusammen,
so geht es:

.Subject = "Zahlen per: " _
& Worksheets("Muster").Cells(4, 4).Value

schönen Tag noch,
mfg Walter mb