Microsoft Excel

Herbers Excel/VBA-Archiv

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

Arbeitsmappe über Lotus Notes 8.5 versenden | Herbers Excel-Forum


Betrifft: Arbeitsmappe über Lotus Notes 8.5 versenden von: Helmut
Geschrieben am: 09.02.2012 15:21:32

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

  

Betrifft: AW: Arbeitsmappe über Lotus Notes 8.5 versenden von: Rudi Maintaire
Geschrieben am: 09.02.2012 15:54:30

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


  

Betrifft: AW: Arbeitsmappe über Lotus Notes 8.5 versenden von: Helmut
Geschrieben am: 09.02.2012 16:34:03

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


  

Betrifft: AW: Arbeitsmappe über Lotus Notes 8.5 versenden von: Rudi Maintaire
Geschrieben am: 09.02.2012 16:55:57

Hallo,

......
......
  objNotesDocument.SAVEMESSAGEONSEND = True
  objNotesDocument.PostedDate = Now

  objNotesDocument.Send (0)
......
......

Gruß
Rudi


Beiträge aus den Excel-Beispielen zum Thema "Arbeitsmappe über Lotus Notes 8.5 versenden"