Microsoft Excel

Herbers Excel/VBA-Archiv

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

Lotus-Notes-Mail mit Anhang aus Excel | Herbers Excel-Forum


Betrifft: Lotus-Notes-Mail mit Anhang aus Excel von: Wilfried
Geschrieben am: 13.01.2010 14:13:25

Hallo und guten Tag,
folgendes Makro habe ich im Forum gefunden. Es bleibt immer an der Zeile
(Set MailDoc = Maildb.CREATEDOCUMENT) stehen, warum? ... und was muss ich tun, damit der Code mit abgespeichert wird?

Sub SendNotesMail()

Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim e As String

Dim f As String

Dim EmbedObj As Object
Dim AttachME As Object

Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
    'On Error Resume Next
Set MailDoc = Maildb.CREATEDOCUMENT

MailDoc.Form = "Memo"

Recipient = "nichtwissen@de.de"

MailDoc.sendto = Recipient
MailDoc.CopyTo = ""
MailDoc.Subject = "Mail aus Excel"
MailDoc.SAVEMESSAGEONSEND = True

'Pfad zur zu versendenden Datei
Set AttachME = MailDoc.CREATERICHTEXTITEM(ActiveWorkbook.Path & AWS)
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", ActiveWorkbook.Path & AWS)


MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing

MsgBox "Mail versandt!"

End Sub
vielen Dank schon jetzt

  

Betrifft: AW: Lotus-Notes-Mail mit Anhang aus Excel von: Luschi
Geschrieben am: 13.01.2010 14:25:25

Hallo Wilfried,

in diesem Link: http://www.fabalou.com/VBandVBA/lotusnotesmail.asp

gibt es noch folgende Zeilen:

     If Maildb.ISOPEN = True Then
          'Already open for mail
     Else
         Maildb.OPENMAIL
     End If
    'Set up the new mail document
    Set MailDoc = Maildb.CREATEDOCUMENT
Gruß von Luschi
aus klein-Paris