Hallo und guten Morgen,
wie ihr sehen könnt bin ich neu hier :-)
und bevor ich jetzt gleich gesteinigt werde!! Ich habe mir schon 2 Std lang sämtliche Themen zu diesem Thema hier im Forum durchgelesen, aber keine Antwort gefunden.
Also meine Problem:
1. Ich habe von NoteProgrammierung keine Ahnung (dürfen wir auch nicht, bin nur Benutzter.
2. Ich muss jeden Tag einen Tagesbricht an eine Gruppe verschicken (#gruppe), das klappt prima Aus MS-Access.
3. Es ist ein Anhang aus Access erzeugt (als PDF, das habe ich auch hinbekommen.
4. Es muss meine Signatur unter dem Mail sein --- das klappt nicht.
Die akt. Lotusversion ist 6.5.5
Ich habe schon div Codes ausprobieren. Aber mit keinem klappt es.
Diesen hier benutze ich z.Z.
'XXXXXXXXXXXXXXXXXXXXXXX
' Mailen mit Lotus Notes
'XXXXXXXXXXXXXXXXXXXXXXX
' CC-Liste "eingeschaltet" am XX.03. und 22.03.05
Sub SendNotesMail(MailTo As String, CCListe As String, BCListe 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
' CCListe Kopieempfänger
' BCListe Blindkopieempfänger
' 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, NewNotesDocument As Object
Dim EmpfListe() As String
Dim EmpfCnt As Integer
Dim CCEmpfListe() As String
Dim CCEmpfCnt As Integer
Dim Pos1 As Long
Dim mailDB
Dim MProfile
Dim maildoc
'
' 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
'
' Kopieempfängerliste erstellen
'
CCEmpfCnt = 0
Pos1 = InStr(CCListe, ";")
While Pos1 > 0
ReDim Preserve CCEmpfListe(CCEmpfCnt)
CCEmpfListe(CCEmpfCnt) = Left(CCListe, Pos1 - 1)
CCListe = Right(CCListe, Len(CCListe) - Pos1)
Pos1 = InStr(CCListe, ";")
CCEmpfCnt = CCEmpfCnt + 1
Wend
ReDim Preserve CCEmpfListe(CCEmpfCnt)
CCEmpfListe(CCEmpfCnt) = CCListe
'
' Neues Notes-Dokument anlegen (Mail)
'
Set MProfile = NotesDB.GetProfileDocument("CalendarProfile")
Set NotesDoc = NotesDB.CREATEDOCUMENT
With NotesDoc
.Form = "Memo"
.Subject = MailBetreff
.sendto = EmpfListe
.CopyTo = CCEmpfListe ' Kopie an
.blindcopyto = BCListe 'Blindkopie an
.Body = MailText & vbCrLf & MailAbsender
.DefaultMailSaveOption = 0
'.MailSaveOption = 0
'.DeliveryReport = "B"
.Importance = "2"
'.logo = ""
.SAVEMESSAGEONSEND = False ' bei True wird ein Exemplar in Notes in Gesendet gestellt
.ReturnReceipt = "0" ' Empfangsbestätigung
.Sign = Empty
'.encrypt ="0"
.Principal = Session.Owner
'.viewicon ="74"
'.from = Session.Username
'.SaveOptions = 0
'.SecureMail = ""
'.SenderTag = "F"
'''''''''''''' Dateianhang'''''''''''''''''
If Trim$(MailAnhang) <> "" Then
Const embed_ATT = 1454
Set rtitem = .CREATERICHTEXTITEM(MailAnhang)
Set EmbeddedObject = rtitem.EMBEDOBJECT(embed_ATT, "", MailAnhang, MailAnhang)
End If
''''''''''''''''''''''''''''''''''''''''''
If Mailsenden Then
.SEND False
Else
Call .Save(True, True)
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
Thema: MS Access, Signatur kommt nicht mit?? (Gelesen 3872 mal)