IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Signature dans code


Sujet :

VBA Access

  1. #1
    Membre éclairé
    Inscrit en
    Mars 2008
    Messages
    293
    Détails du profil
    Informations forums :
    Inscription : Mars 2008
    Messages : 293
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Membre émérite
    Homme Profil pro
    Regisseur
    Inscrit en
    Octobre 2006
    Messages
    475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Regisseur
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Octobre 2006
    Messages : 475
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre éclairé
    Inscrit en
    Mars 2008
    Messages
    293
    Détails du profil
    Informations forums :
    Inscription : Mars 2008
    Messages : 293
    Par défaut
    merci,
    je vais tester

    marcmarc

Discussions similaires

  1. Appel fonction php dans code javascript
    Par licorne dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 05/03/2008, 10h55
  2. Réponses: 4
    Dernier message: 26/01/2006, 10h24
  3. [C#]ajout code dans code behind
    Par liliprog dans le forum ASP.NET
    Réponses: 8
    Dernier message: 21/06/2005, 11h03
  4. [Servlet][Compilation] Erreur de compil dans code servlet
    Par gandalf_le_blanc dans le forum Servlets/JSP
    Réponses: 3
    Dernier message: 13/05/2004, 10h17
  5. intégrer dll VB dans code C/C++
    Par inertia dans le forum MFC
    Réponses: 3
    Dernier message: 09/05/2004, 12h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo