Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Text in Lotos einsetzen
26.08.2008 11:25:52
Walter
Guten Morgen Fachfrauen u. Männer,
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

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habe mal so eingesetzt
26.08.2008 12:44:59
Walter
Hallo Allerseits,
habe mal so eingesetzt:

Sub Test()
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"
.body = "walter"                


Es wird Walter leider ganz nach unten reingesetzt.
Ich möchte eine Leerzeile haben u. dann den Text.
mfg Walter MB

Anzeige
AW: Habe mal so eingesetzt
26.08.2008 13:16:00
Rudi
Hallo,
versuchs mal so:

Sub Test()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim objRTITEM 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
Set objRTITEM = doc.CREATERICHTEXTITEM("body")
Call objRTITEM.APPENDTEXT("Walter1" & vbLf & "Walter2")
With doc
.form = "Memo"
'.body = "walter"
.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
End Sub


Gruß
Rudi

Anzeige
Leider nichts
26.08.2008 14:20:00
Walter
Hallo Rudi,
leider keine Text an 1. Stelle, so mein Test-Makro:

Sub Test_lotus()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim objRTITEM 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
Set objRTITEM = doc.CREATERICHTEXTITEM("body")
Call objRTITEM.APPENDTEXT("Walter1" & vbLf & "Walter2")
With doc
.form = "Memo"
'.body = "walter"
.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")
' 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("B121:L133").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
End Sub


mfg Walter mb

Anzeige
AW: Habe mal so eingesetzt
26.08.2008 16:27:00
Moni
Hallo Walter,
versuch´s mal hiemit:
sText = " " & vbCrLf & " Sehr geehrte Damen und Herren," & vbCrLf & " " & vbCrLf & " anbei erhalten Sie ……." & vbCrLf & " " & vbCrLf & vbCrLf & " " & vbCrLf & " " & "Mit freundlichen Grüßen " & vbCrLf & " " & vbCrLf & "Ihr…. " & vbCrLf & " " & vbCrLf & """
sText = Replace(sText, vbCrLf, Chr(10)) ' Zeilenumbrüche ändern
sEmpfang = "test@t-online.de" ' Einträge durch " ; " getrennt
sEmpfang = Adr ' Einträge durch " " getrennt
sBetreff = "Memo"
Grüße
Monika
Anzeige
Wo den einsetzen ?
26.08.2008 18:43:00
Walter
Hallo Monika,
habe nur Lotus in der Firma, teste morgen Früh direkt.
Wo muß ich den die Zeilen bei mir einbinden ?
mfg Walter mb
Text wird jetzt am Schluss eingefügt
27.08.2008 09:10:00
Walter
Hallo Monika,
habe mal so eingesetzt, der Text wird ganz unten eigesetzt.
Ich möchte aber als 1. haben.
AW: Text wird jetzt am Schluss eingefügt
27.08.2008 09:34:00
Moni
Hallo Walter,
ich habe eine Leerzeile, dann "Sehr geehrte Damen,.....", eine Leerzeile, dann kommt "anbei erhalten Sie.."
Durch löschen oder hinzufügen von " & vbCrLf & " kommt eine Leerzeile hinzu oder wird gelöscht.
Aber vielleicht hängt das mit dem restlichen Makro zusammen?
Grüße
Monika
Leider...
27.08.2008 11:16:32
Walter
Hallo Monika,
leider wird der Text immer ganz unten kopiert.
Muß mal weiter tüffteln...
mfg Walter mb
Anzeige
AW: Text in Lotos einsetzen
26.08.2008 16:14:00
Moni
Hallo Walter,
mein Makro ist zwar etwas anders aufgebaut, aber vielleicht kannst Du dennoch diesen Teil hier
verwenden:
sText = " " & vbCrLf & " Sehr geehrte Damen und Herren," & vbCrLf & " " & vbCrLf & " anbei erhalten Sie ……." & vbCrLf & " " & vbCrLf & vbCrLf & " " & vbCrLf & " " & "Mit freundlichen Grüßen " & vbCrLf & " " & vbCrLf & "Ihr…. " & vbCrLf & " " & vbCrLf & """
sText = Replace(sText, vbCrLf, Chr(10)) ' Zeilenumbrüche ändern
sEmpfang = "test@t-online.de" ' Einträge durch " ; " getrennt
sEmpfang = Adr ' Einträge durch " " getrennt
sBetreff = "Memo"
Grüße
Monika
Anzeige
Keine Reaktion
27.08.2008 08:48:00
Walter
Guten Morgen Monika,
danke für das Beispiel, leider keine Reaktion, hatte überall mal reingesetzt.
mfg Walter MB
Leider keine Lösung, deshalb -)
01.09.2008 11:20:24
Walter
Hallo Rudi u. Monika,
leider gibts es keine Lösung, deshalb will ich nicht
länger das Thema offen lassen,
danke.
mfg walter mb

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige