Signature dans code

Version imprimable

Signature dans code

bonjour a tous et mes meilleurs voeux pour 2017 :) :)

j'ai un petit soucis, j'aimerais
soit inclure la signature outlook dans le mail à envoyé
soit créer manuellement dans le code la signature

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub facture_Click()
Dim mon_fichier As String
'DoCmd.Close acReport, "Facture_2"
'MsgBox Me.lienfacture
Call mail_pdf_facture(lienfacture) 
End Sub
 
 
    Sub mail_pdf_facture(fichier$)
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = Me.email.Value
'        .CC = "Vous@mail.com"
'        .BCC = "unautre@mail.fr"
        .Subject = "Document Facture de Locastand"
        .Body = "Bonjour" & vbCrLf & vbCrLf & "Voici votre " & Texte149
        .Attachments.Add fichier 'le fichier a envoyé en PDF est mis dans la parenthèse lors de l'appel de la fonction
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
    Select Case MsgBox("Votre mail Facture est envoyé ", vbOKCancel, "Envoi de la facture ")
    Case vbOK
        Me.dateenvoifacture.Value = Now
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

quel est la meilleur solution et comment faire pour chacune des possibilités ?
pouvez-vous m'aider....
en vous remerciant
marcmarc

Bonjour marcmarc150

1) creer une signature (avec word,extention .htm)

2) ajouter la référence Microsoft Scripting Runtime (C:Windows\SysWOW64\scrrun.dll)

3) dans un module standard,une fonction pour lire la signature:

Code:

1
2
3
4
5
6
7
8
Public Function LireSignature(ByVal sFile As String) As String
    Dim FSO As Scripting.FileSystemObject
    Dim ts As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set ts = FSO.GetFile(sFile).OpenAsTextStream(1, -2)
    LireSignature = ts.ReadAll
    ts.Close
End Function

4) rajouter à ton code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim StrSign As String
 Dim strFormatSign As String
 
'après les déclaration d'objet outlook
StrSign = DriveLinkedTable & "\Message.htm" 'le chemin de la signature
strFormatSign = LireSignature(StrSign) 'appel de la fonction pour lire la signature
 
With olMail
        .Importance = olImportanceHigh
        .To = Monadresse
        .Subject = "le sujet du mail
        .HTMLBody = montexte & Chr(13) & Chr(10) & strFormatSign       'CORPS DU MESSAGE"
        .Attachments.Add devis
 
        If Not IsNull(AutreDestinataire) Then
        .CC = AutreDestinataire
        End If
 
End With

Cdlt

03/01/2017, 12h17
marcmarc150

merci,
je vais tester :) :)

marcmarc