Office: (Office 2010) Mails per LotusNotes 8.5 versenden

Game-Boy · 15. April 2012

Hallo,

ich möchte mit Access 2010 Mails (mit Anhängen) per Lotus Notes 8.5 versenden.
Dafür habe ich folgendes Script gefunden:

Code:

Sub SendNotesMail(mailTo As String, MailText As String, MailAnhang As String, _
MailAbsender As String, mailBetreff As String, _
Optional MailSenden As Boolean)
'
' Versenden einer E-Mail via Lotus Notes.
'
' IN: MailTo E-Mail Adresse des Empfängers
' MailText Text der Nachricht
' MailAnhang Dateianhang (Dateiname mit Pfad)
' MailAbsender Name des Absenders (wird an den Text angeängt)
' MailBetreff Betreffzeile der E-Mail
' MailSenden True wenn Nachricht versendet werden soll,
' False wenn Nachricht als Entwurf gespeichert werden soll
'
Dim rtitem As Object
Dim EmbeddedObject As Object
Dim SessionNotes As Object, NotesDB As Object, NotesDoc As Object
Dim EmpfListe() As String
Dim EmpfCnt As Integer
Dim Pos1 As Long
'
' wenn die Betreffzeile leer ist, dann wird eine erzeugt
'
If Trim$(mailBetreff) = "" Then
mailBetreff = "Mail vom " & Date & " " & Time
End If
'
' Eigene Fehlerbehandlung
'
On Error GoTo Err_Mail_Click
'
' An die laufende Lotus Notes Session anhängen
'
Set SessionNotes = CreateObject("Notes.NOTESSESSION")
'
' Notes Datenbank-Objekt erstellen und initialisieren
'
Set NotesDB = SessionNotes.GetDatabase("", "")
NotesDB.OPENMAIL
If NotesDB.ISOPEN = False Then
MsgBox "Bitte melden Sie sich zunächst vollständig in Notes an!", vbInformation + vbOKOnly
Exit Sub
End If
'
' Empfängerliste erstellen
'
EmpfCnt = 0
Pos1 = InStr(mailTo, ";")
While Pos1 > 0
ReDim Preserve EmpfListe(EmpfCnt)
EmpfListe(EmpfCnt) = Left(mailTo, Pos1 - 1)
mailTo = Right(mailTo, Len(mailTo) - Pos1)
Pos1 = InStr(mailTo, ";")
EmpfCnt = EmpfCnt + 1
Wend
ReDim Preserve EmpfListe(EmpfCnt)
EmpfListe(EmpfCnt) = mailTo
'
' Neues Notes-Dokument anlegen (Mail)
'
Set NotesDoc = NotesDB.CreateDocument
With NotesDoc
.Form = "Memo"
.Subject = mailBetreff
.sendto = EmpfListe
'.copyto = ' Kopie an
'.blindcopyto= Blindkopie an
.Body = MailText & vbCrLf & MailAbsender
'.DefaultMailSaveOption = 0
'.MailSaveOption = 0
.DeliveryReport = "B"
.Importance = "2"
'.logo = "Scania"
.SAVEMESSAGEONSEND = True ' bei True wird ein Exemplar in Notes in Gesendet gestellt
.ReturnReceipt = "1"
.Sign = "1"
'.encrypt ="0"
'.Principal = session.UserName
'.viewicon ="74"
'.from = session.UserName
'.SaveOptions = 0
'.SecureMail = ""
'.SenderTag = "F"

'''''''''''''' Dateianhang'''''''''''''''''

If Trim$(MailAnhang) "" Then
Const embed_ATT = 1454
Set rtitem = .CreateRichTextItem(MailAnhang)

++++ Hier kommt der Fehler ++++++++++++++++++++++++++++++

Set EmbeddedObject = rtitem.EmbedObject(embed_ATT, "", MailAnhang, MailAnhang)
End If

''''''''''''''''''''''''''''''''''''''''''

If MailSenden = True Then
.Send False
Else
.Save
End If

End With

Set SessionNotes = Nothing
Set NotesDB = Nothing
Set NotesDoc = Nothing
Set rtitem = Nothing
Set EmbeddedObject = Nothing

Exit_Mail_Click:
Exit Sub
Err_Mail_Click:
MsgBox Err.Description
Resume Exit_Mail_Click
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Senden einer normalen Mail ohne Anhang funktioniert.
Wenn ich einen Anhang angebe, kommt an der gekennzeichneten Stelle der Fehler "File not found", obwohl die Datei da ist.

Kann mir jemand sagen, was da falsch ist? Oder gibt es eine andere (bessere) Lösung?

Danke und Gruß

:)

Fred_BS · 16. April 2012

Hallo,

bei mir heisst es in der entscheidenden Zeile
Code:

Set EmbeddedObject = rtitem.EmbedObject(1454,"",MailAnhang)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe also einen Parameter weniger - vlt. liegt es daran. In Ermangelung einer Dokumentation weiss ich nicht, was der 4. Parameter bedeutet.

HTH
Fred

Game-Boy · 16. April 2012

Danke,

habs mal probiert mit:
Code:

Set EmbeddedObject = rtitem.EmbedObject(1454,"",MailAnhang)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kommt aber genau der gleiche Fehler.

Fred_BS · 17. April 2012

Dann solltest Du mal testen, ob dieser Dateianhang wie im Parameter übergeben tatsächlich existiert und ob Zugriff darauf besteht. Manchmal steckt der Teufel im Detail - ich habe auch schon mal vergessen, zwischen ermitteltem Pfad und Dateinamen den Backslash zu setzen und mir einen Wolf gesucht, warum die Datei nicht gefunden wurde, denn im Explorer war sie doch sichtbar. Aber im Parameter stand halt was anderes als ich dachte...

HTH
Fred

Game-Boy · 17. April 2012

Der Pfad stimmt, das hab ich mehrmals geprüft.
Und wenn ich die Datei öffnen kann, müsste ja auch der Zugriff möglich sein.

Das kanns also nicht sein...

Game-Boy · 17. April 2012

Oder kann es auch sein, dass nur Access bzw. der Code nicht auf die Datei zugreifen kann?

Game-Boy · 17. April 2012

Hab den Fehler gefunden, war doch noch im Pfad was falsch.
Jetzt funktionierts.

Gibt es auch eine Möglichkeit, mehrere Anhänge mit einer Mail zu senden?

Fred_BS · 17. April 2012

Klar, die Möglichkeit gibt es auch, das mache ich dauernd. Du musst nur den Parameter "MailAnhang" ändern, statt "MailAnhang as String" wird daraus ein Array "MailAnhang() as String". Das füllst Du natürlich vor der Übergabe an die Mailfunktion mit den Dateinamen inkl. Pfaden. Dann machst Du statt des einen Anhangs eine Schleife über die Arrayelemente:
Code:

For i = 0 to UBound(Mailanhang)
Set EmbeddedObject = rtitem.EmbedObject(1454,"",MailAnhang(i))
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss
Fred

Thomas Möller · 17. April 2012

Hallo Fred,

ich persönlich halte es gern etwas universaler und verwende daher LBound:
Code:

For i = LBound(Mailanhang) to UBound(Mailanhang)
Set EmbeddedObject = rtitem.EmbedObject(1454,"",MailAnhang(i))
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

CU

Office: (Office 2010) Mails per LotusNotes 8.5 versenden

Mails per LotusNotes 8.5 versenden

Mails per LotusNotes 8.5 versenden

Mails per LotusNotes 8.5 versenden

Mails per LotusNotes 8.5 versenden

Mails per LotusNotes 8.5 versenden - Similar Threads - Mails LotusNotes versenden

Wann genau wird Mail zu verpassten Aktivitäten versandt

Mail verschieben, wenn sie "als erledigt markiert ist

Empfänger sieht primäre Adresse statt Alias, an den die Mail ging

Spam Mail

Falsche E-Mail-Adresse in Outlook Live nach IONOS-Migration

Bestimmte Mail automatisch nach X Tagen löschen

Antwort-E-Mail-Adresse gleich Empfang-E-Mail-Adresse