AtNotes Übersicht Willkommen Gast. Bitte einloggen oder registrieren.
11.08.20 - 18:03:25
Übersicht Hilfe Regeln Glossar Suche Einloggen Registrieren
News:
Schnellsuche:
+  Das Notes Forum
|-+  Lotus Notes / Domino 9
| |-+  ND9: Entwicklung (Moderatoren: Axel, eknori, Thomas Schulte, koehlerbv, m3)
| | |-+  Access VBA: formatiertes Mail per Notes anzeigen
« vorheriges nächstes »
Seiten: [1] Nach unten Drucken
Autor Thema: Access VBA: formatiertes Mail per Notes anzeigen  (Gelesen 438 mal)
Ingo Unbedarft
Frischling
*
Offline Offline

Beiträge: 2


« am: 10.12.19 - 09:21:06 »

Hallo Forum,

ich verschicke aus Access 2010 per VBA Mails über IBM Notes 9. Vor dem Versand, sollen mir die formatierten Mails (unproportionale Schrift) in Notes angezeigt werden, ggf. manuell ergänzt und dann per "Senden" das Mail verschicken.

Mein bisheriger Stand:
a) unformatiertes Mail anzeigen lassen => geht
b) formatiertes Mail versenden => geht

Wenn ich beides kombiniere, ist der Mailinhalt (body) leer. Die betreffende Stelle ist weit unten bei
' Senden / Gesendet anzeigen oder als Entwurf speichern
 If bolSenden = True Then
 => senden formatierte Mail klappt
 else
 => anzeigen formatierte Mail klappt nicht

 Könnt Ihr mir bitte helfen?

Dank und Gruß
Ingo

Code:
Function NotesMail_senden(strSendTo As String, _
    strCopyTo As String, _
    strBlindCopyTo As String, _
    strSubject As String, _
    strMessage As String, _
    strAttachment As String, _
    Optional bolSenden As Boolean = True)
   
    On Error GoTo NotesMail_Err
   
    Dim Workspace As Object
   
    Dim NotesSession As Object
    Dim NotesDatabase As Object
    Dim NotesDocument As Object
    Dim NotesRTStyle As Object
    Dim NotesRTItem As Object
    Dim NotesATTACHMENT As Object
    Dim sMessage As String
   
    ' Session starten
    Set NotesSession = CreateObject("Notes.Notessession")
   
    ' Create a new Style
    Set NotesRTStyle = NotesSession.CreateRichTextStyle
   
    ' Verbindung zur Datenbank
    Set NotesDatabase = NotesSession.GetDatabase("", "")
    NotesDatabase.OpenMail
   
    ' Neues Dokument
    Set NotesDocument = NotesDatabase.CreateDocument
   
    ' Neues NotesRichTextItem erstellen, Body im RichText formatieren
    Set NotesRTItem = NotesDocument.CreateRichTextItem("Body")

   
    ' Anhang
    If strAttachment <> "" Then Set NotesATTACHMENT = NotesRTItem.EMBEDOBJECT(1454, "", strAttachment, "Sample")
   
    ' Nachricht
    sMessage = strMessage
   
    ' Nachricht formatieren
    NotesRTStyle.NotesFont = 4     ' Courier
    'NotesRTStyle.Bold = True       ' Fett
    NotesRTStyle.NotesColor = 2    ' Rot
    NotesRTStyle.FontSize = 10     ' 10
   
    Call NotesRTItem.AppendStyle(NotesRTStyle)
    Call NotesRTItem.AppendText(sMessage)
   
   
    ' Formatierungen / Texte
    With NotesDocument
        .Form = "Memo"
        .ReplaceItemValue "SendTo", strSendTo
        .ReplaceItemValue "CopyTo", strCopyTo
        .ReplaceItemValue "BlindCopyTo", strBlindCopyTo
        .ReplaceItemValue "Subject", strSubject
       
        ' Senden / Gesendet anzeigen oder als Entwurf speichern
        If bolSenden = True Then
            .SAVEMESSAGEONSEND = True
            .PostedDate = Now():  'Im Postausgang wird die Mail sichtbar
            .Send True
        Else
            Set Workspace = CreateObject("Notes.NotesUIWorkspace")
            Call Workspace.EditDocument(True, NotesDocument).GotoField("Body")     'Positioning Cursor z.B. Subject o. Body
            'Call .Save(True, False)
        End If
    End With
   
    Set NotesRTItem = Nothing
    Set NotesRTStyle = Nothing
    Set NotesDocument = Nothing
    Set NotesDatabase = Nothing
    Set NotesSession = Nothing
   
    'If bolSenden = True Then MsgBox "Mail wurde gesendet!", vbInformation Else MsgBox "Mail wurde gespeichert!", vbInformation
       
    Exit Function

NotesMail_Err:
    MsgBox Err.Description, vbExclamation, "Fehler! (" & Trim$(Str$(Err)) & ")"
End Function
Gespeichert
Peter Klett
Gold Platin u.s.w. member:)
*****
Offline Offline

Geschlecht: Männlich
Beiträge: 2683



« Antworten #1 am: 10.12.19 - 10:31:31 »

versuch mal

Call NotesRTItem.AppendStyle(NotesRTStyle)
Call NotesRTItem.AppendText(sMessage)

Call NotesRTItem.Update
Call NotesRTItem.Compact

Falls das nicht hilft, wirst Du das Dokument (die Mail) wohl vorm Öffnen speichern müssen
Gespeichert
Ingo Unbedarft
Frischling
*
Offline Offline

Beiträge: 2


« Antworten #2 am: 10.12.19 - 11:08:56 »

Hallo Peter,

vielen Dank für die Lösung.

Mit beiden Zeilen mit .Update und .Compact wird die formatierte Mail angezeigt.

Gruß Ingo
Gespeichert
Seiten: [1] Nach oben Drucken 
« vorheriges nächstes »
Gehe zu:  


Einloggen mit Benutzername, Passwort und Sitzungslänge

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006, Simple Machines Prüfe XHTML 1.0 Prüfe CSS
Impressum Atnotes.de - Powered by Syslords Solutions - Datenschutz | Partner: