Office: Mail Lotus Notes vor Versand noch anzeigen

Geierfup · 4. September 2007

Hallo Leute,

ich verschicke aus Excel heraus eine Mail mit Lotus Notes und für die bestehende Datei wird eine Verknüpfung angehängt. Das funktioniert wunderbar. Allerdings möchte ich diese Mail vor dem Abschicken dem Nutzer noch anzeigen, damit er ggf. noch etwas ergänzen kann. Wie schaffe ich es die Mail vor dem Versand noch anzuzeigen, den bisher wird die Mail einfach verschickt.

Hier der Code:

Code:

Private Sub CommandButton2_Click()

Dim Maildb As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim MailDoc As Object
Dim session As Object
Dim MailDbName As String
'Dim Recipient As String
Dim verknüpfung As String
Dim nummer As String
Dim pfad As String
Dim AWS As String
Dim recipient As String

recipient = ActiveWorkbook.Worksheets("Gültigkeitsprüfungen").Range("Empfänger")
pfad = ActiveWorkbook.Worksheets("Gültigkeitsprüfungen").Range("Pfad_Änderung")
nummer = ActiveWorkbook.Worksheets("Antrag_request").Range("Feld_Antragsnummer")

'Verknüpfung erstellen und in C:\Windows\Temp\ ablegen und dann per Mail verschicken
Dim wsh As Object
Dim wso As Object

Set wsh = CreateObject("WScript.Shell")
Set wso = wsh.CreateShortcut("c:\windows\temp\" & verknüpfung & ".lnk")
With wso
.WindowStyle = 3
.IconLocation = Application.Path & "Excel.exe,3"
.TargetPath = pfad & "\" & nummer & ".xls"
.WorkingDirectory = pfad
.Arguments = ""
.Save
End With

AWS = wso.FullName

Set session = CreateObject("Notes.NotesSession") ' Mail Client wird geöffenet
Set Maildb = session.CurrentDatabase
Set MailDoc = Maildb.CreateDocument

If err.Number 0 Then 'Fehlerschleife falls LotusNotes nicht geöffnet ist
MsgBox ("Please start Lotus Notes. Try it again")
End If

MailDoc.Form = "Memo" 'Mail öffnen
MailDoc.From = session.UserName
MailDoc.sendto = recipient 'Empfänger übergeben
MailDoc.CopyTo = ""
MailDoc.Subject = "You have a todo for the change " & nummer 'Betreff festlegen"
MailDoc.Body = "Please open these shortcut, you have a todo"
MailDoc.SaveMessageOnSend = True
MailDoc.ReadReceiptRequested = True 'Empfangsbestätigung senden, geht´s?
MailDoc.display = True
'MailDoc.Select

'Pfad zur zu versendenden Datei

Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", AWS)
MailDoc.PostedDate = Now() 'Mail im Postausgang sichtbar machen
MailDoc.Send 1, recipient
MsgBox "The message was sent"

Set Maildb = Nothing
Set EmbedObj = Nothing
Set AttachME = Nothing
Set MailDoc = Nothing
Set session = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für die Hilfe!

:)

Florian Held · 22. September 2007

Ja, ein Leidensgenosse!

habe mich bisher noch nicht mit Notes aus Excel herraus beschäftigt, muss jetzt aber genau dass tun, was du hier auch tun willst ;-) .

Werde mich an deinen Code hier anlehnen wenn du nichts dagegen hast und mich Montag mit dem Thema beschäftigen. Sollte ich vorwärts kommen meld ich mich.

Solltest du die Lösung schon haben dann würd ich mich freuen wenn du Sie postest.

Frage vorab (Bin noch dabei mich ins Thema Notes per VBA rein zu lesen):
Muss ich das Lotus Notes Object unter Verweise aktivieren/Einfügen oder etwas anderes Vorbereiten damit der Code läuft oder Excel/VBA "blanko"...?

Danke!

Geierfup · 1. Oktober 2007

Hallo Kollege,

ich bin mit dem Thema leider auch nicht weitergekommen :-(

Ich musste keine Verweise einfügen, die sind bei uns schon installiert. Allerdings weiß ich nicht wie das bei anderen Netzwerken oder Anwendungen so ist.

Viel Glück!

Florian Held · 1. Oktober 2007

Hallo,

ich musste mittlerweile meine Versuche einstellen da die entsprechende Schnittstelle COM/DOM für normal sterbliche User wie mir gesperrt ist. Und es bringt ja ohnehin nix wenn ich Sie mir freischalten lasse und es dann bei allen deren Usern nicht funktionieren würde.

Viel Erfolg dennoch!

User · 1. Oktober 2007

Moin Geierflup,

nur so eine flüchtige Idee:

bei der Zeile
MailDoc.Body = "Please open these shortcut, you have a todo"

würde ich ansetzen. Zeige diese dem User doch vorher in einer Inputbox an á la Überschift Meldung: "Diese Nachricht senden, ansonsten bitte hier abändern." und ins Eingabefeld: "Please open these shortcut, you have a todo". Vermutlich das Ganze über eine Stringvariable.

Nur so eine Idee, vielleicht kommst Du damit weiter.

Habe eigentlich keine Zeit .... bis denn dann.

FixFox · 23. September 2008

Hallo!
Vielleicht hilft folgender Codeauszug:

Abfrage über Select: "direkt" senden" oder zur Bearbeitung öffnen

Code:

'Mail Edit/Send
Antwort = MsgBox("1. Mail direkt senden? > JA NEIN
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 20. August 2009

Seid Ihr hier weitergekommen? Ich habe das gleiche Problem wie Ihr aber nur rudimentäre VBA Kenntnisse - sprich ich möchte per drücken eines buttons in Excel eine Mail erstellen, in die das aktuelle Excel Blatt als Anhang eingefügt wird und dann die Mail händisch bearbeiten bevor sie gesendet wird.

Danke für Eure Hilfe.

Grüße
Stefan

Florian Held · 24. August 2009

Hi, also direkt muss ich passen, hab allerdings einen Workaround gemacht.

Ich speichere die Fertig generierte E-Mail in Entwürfe (Senden = False, Befehl MailDoc.Send). Was ich noch einbauen möchte was aber kein Problem darstellen sollte ist die in Entwürfe gespeicherte E-Mail zu öffnen.

Ergebnis: E-Mail wird in Lotus Notes angezeigt.

Vorteil: Der User kann die Mail noch verändern und entscheiden, ob er diese senden will oder nicht.

Zumindest in meinem Fall ein Vorteil da ich dem User bei meinem Anwendungsfall diese Freiheiten geben möchte (Nur die erstellung mit Beschreibung und Anhöngen automatisiert).
In der Regel vermute ich jedoch ist dies ein Nachteil da der User eben mit der E-Mail machen kann was er will, auch löschen ohne Sie zu senden.

Fynnald · 6. November 2011

Moin,

könnte es klappen, dass Notes die Mail anzeigt, wenn kein Empfänger angegeben ist?
Beim “normalen“ Mailen kann ja auch nicht ohne Empfänger gesendet werden.

Gruß Fynnald

Fynnald · 17. August 2014

Hallo,

nach langem Basteln und lesen und rumfummeln habe ich eine nicht besonders elegante, aber funktionierende Variante gefummelt. Ich bin über das Hintertürchen dahin gekommen, den Mailbody noch editierbar zu machen.

Ich habe den Bereich des Versenden ganz rausgelassen, stattdessen benutze ich die Zwischenablage um den Bodytext in den Body zu kopieren. Dann kann man dort noch weiteren Text hinzufügen und auf den Senden-Button klicken.

Nicht schön, aber funktioniert.

Call rtitem.APPENDTEXT(sText)
doc.SAVEMESSAGEONSEND = True
doc.PostedDate = Now
' *******************************************
If sAnhang "" Then
Set AttachMe = doc.CREATERICHTEXTITEM("Attachment")
Set DerAnhang = AttachMe.EMBEDOBJECT(1454, "", sAnhang, "Attachment")
End If
'*******************************
Dim workspace As Object ' Mail wird im Entwurfsmodus angezeigt
Dim UIDoc As Object
Set workspace = CreateObject("Notes.NotesUIWorkspace")

With data ' Text in die Zwischenablage kopieren
.SetText sText
.PutInClipboard
End With

Set UIDoc = workspace.editdocument(True, doc)
UIDoc.gotofield ("Body")
UIDoc.Paste ' aus Zwischenablage einfügen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist der Bereich, in dem eigentlich versendet wird.

Office: Mail Lotus Notes vor Versand noch anzeigen

Mail Lotus Notes vor Versand noch anzeigen

Mail Lotus Notes vor Versand noch anzeigen

Mail Lotus Notes vor Versand noch anzeigen

Mail Lotus Notes vor Versand noch anzeigen

Mail Lotus Notes vor Versand noch anzeigen - Similar Threads - Mail Lotus Notes

Neue Mail funktioniert nicht

Neues E-Mail bearbeiten

Junk-E-Mail nach MaxMustermann filtern

Neues Outlook: Mail-Eingänge in Posteingang Favoriten

Externe Mails mit bedingter Formatierung farbig hervorheben

emails per vba mit eigenem Ordner speichern

Excel, E-Mail & Lotus Notes