Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Arbeitsmappe über Lotus Notes 8.5 versenden
Helmut
Hallo Excel-Profis,
wie kann ich über eine Schaltfläche die aktive Arbeitsmappe mit Lotus Notes versenden.
Ich habe zwar folgenden Code eingegeben, aber ich muß dann in Lotus Notes immer noch auf senden klicken.
Sub Mailen()
ThisWorkbook.SendMail _
Recipients:="Helmut_Oberle@kabelbw.de", _
Subject:="Ein Test"
End Sub 'und für den CmdButton:
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Call Mailen
End Sub
Geht das auch ohne klick auf senden?
Vielen Dank für die Unterstützung im voraus.
Gruß
Helmut

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Arbeitsmappe über Lotus Notes 8.5 versenden
09.02.2012 15:54:30
Rudi
Hallo,
Sub Mailen()
SendMail "Ein Test", "Helmut_Oberle@kabelbw.de;anderer@testmail.com","" ,"" ,"" ,  _
ThisWorkbook.FullName
End Sub
Function SendMail( _
ByVal EMailSubject As String, ByVal EMailSendTo As String, _
ByVal EMailCCTo As String, ByVal EMailBCCTo As String, _
ByVal EMailText As String, ByVal EMailAttachment As String)
Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object
Dim Msg As String
On Error GoTo SendMailError
Set objNotesSession = CreateObject("Notes.NotesSession")
Set objNotesMailFile = objNotesSession.GETDATABASE("", "")
objNotesMailFile.OPENMAIL
Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT
Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EMailSubject)
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", Split(EMailSendTo, ";"))
If EMailCCTo  "" Then
Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", Split(EMailCCTo, ";"))
End If
If EMailBCCTo  "" Then
Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", Split(EMailBCCTo, ";"))
End If
Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")
If EMailText  "" Then
objNotesField.APPENDTEXT EMailText
End If
If EMailAttachment  "" Then
objNotesField = objNotesField.EMBEDOBJECT(1454, "", EMailAttachment)
End If
objNotesDocument.Send (0)
Set objNotesSession = Nothing
Set objNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing
SendMail = True
Exit Function
SendMailError:
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
SendMail = False
End Function
Gruß
Rudi
Anzeige
AW: Arbeitsmappe über Lotus Notes 8.5 versenden
09.02.2012 16:34:03
Helmut
Hallo Rudi,
vielen Dank für die schnelle Lösung. Es klappt sehr gut.
Ein Frage dazu hätte ich noch. In Lotus Notes erscheint im Ordner "Gesendet" kein Hinweis, dass die Datei versendet wurde. Das macht vielleicht etwas unsicher.
Wenn es Dir nicht soviel Mühe macht, das noch zu ergänzen.
Auf jeden Fall nochmals vielen Dank.
Gruß Helmut
AW: Arbeitsmappe über Lotus Notes 8.5 versenden
09.02.2012 16:55:57
Rudi
Hallo,
......
objNotesDocument.SAVEMESSAGEONSEND = True
objNotesDocument.PostedDate = Now
objNotesDocument.Send (0)
......

Gruß
Rudi

132 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige