Text in Lotos einsetzen
26.08.2008 11:25:52
Walter
habe mal ein Makro vom Forum erhalten, für das automatische versenden Bereich aus Excel.
Das klappt soweit einwandfrei.
Nun möchte ich gern am Anfang die Anrede automatisieren z.b. Sehr geehrte Damen, (Zeilenumbruch)
sehr geehrte Herren,
Hier mein Makro:
Sub NURZahlenMailMitAnhangUndScreenshotAllgemein()
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 = "Manager@t-online.de"
.copyTo = "Testmann@t-online.de"
.Subject = "Information "
.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")
Range("A10:A100").Select
Selection.Copy 'kopiert den selektierten Teil deines
End With
Set EmbedObj = Nothing
Set AttachME = Nothing
Set uidoc = Nothing
Set Workspace = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub
mfg Walter MB