Handtekening outlook e-mail bij generen e-mail Access formulier

[HJD1986]

Beste,

Ik heb een formulier met daarop een command button die bij klikken een e-mail aanmaakt met geadresseerde uit het formulier, onderwerp etc.
Bij klikken opent Outlook het bericht, echter zou het fijn zijn als eveneens de juiste handtekening (1 speciaal voor facturen) kiest. Is dit vanuit Access te regelen?

Ik gebruik de volgende code:

Private Sub cmdFactuurMailen_Click()
DoCmd.SendObject , , , Me.txtInvoiceEmail, , , "INVOICE VF" & Me.Factuur_ID & " | Your order " & Me.OrderRefKlant, ""

Alvast bedankt voor jullie reactie.

 

[AccessGuru]

Niet via SendObject.

 

[Henneke50]

Omdat ik vanuit meerdere formulieren emails verstuur heb ik in een bestaande module onderstaande functie toegevoegd

Function GetBoiler(ByVal sFile As String) As String
 'Dick Kusleika
 Dim fso As Object
 Dim ts As Object
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
 GetBoiler = ts.readall
 ts.Close
 End Function

dan bij de gebeurtenis heb ik

Private Sub Knop28941_Click()

     
Dim mess_body As String, StrFile As String, StrPath As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim Aanhef As String
    Dim hand1 As String
    Dim hand2 As String
    Dim hand3 As String
    Dim SigString As String
    Dim Signature As String
    
    Dim Vrijetekst As String
    
    Aanhef = "Goede" & Choose(Int(Hour(Now()) / 6 + 1), "nacht", "morgen", "middag", "navond") & " " & Me.Aanhef & " " & Me.[Voorvoegsel1 klant] & " " & Me.Naam_klant & ","
   
    strbody = "" & Aanhef & " <br><br>" & _
             "Met vriendelijke groet,<br>" & _
             "naam <br><br><br>" & _
             ""
    
    SigString = Environ("AppData") & "\Microsoft\Signatures\HandtekeningHHJM.htm"
    
        If Dir(SigString) <> "" Then
            Signature = GetBoiler(SigString)
        Else
            Signature = ""
        End If
        On Error Resume Next

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.LogOn
    
    Set OutMail = OutApp.CreateItem(0)

    '~~> Wijzig hier het pad
    StrPath = "E:\Documenten\InfoKlanten\"

    With OutMail
        .To = Me.[E-maiadres klant]
        .Subject = ""
        '.Body = ""
        .HTMLBody = strbody & vbNewLine & vbNewLine & Signature

        '~~> *.* Alle bestanden in de geselecteerde map worden als bijlage bij de email gevoegd
    '    StrFile = Dir(StrPath & "*.*")

    '    Do While Len(StrFile) > 0
    '        .Attachments.Add StrPath & StrFile
    '        StrFile = Dir
    '    Loop

        MsgBox "De email blanco is aangemaakt.", vbOKOnly
       
       '.DeleteAfterSubmit = True
        .Display
    End With
     
    Set OutMail = Nothing
    Set OutApp = Nothing


End Sub

vanwege de handtekening in diverse lettertypes werkte bij mij HTML body het beste

 

[HJD1986]

Bedankt, ik ga het proberen!