récupérer la signature faite avec Outlook 2003 et XP2

  • Initiateur de la discussion Initiateur de la discussion La Vouivre
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

La Vouivre

XLDnaute Occasionnel
Bonjour
Je cherche à récupérer ma signature que j’ai faite avec Outlook 2003 .
Je m’explique, j’ai une macro qui envoie un mail avec le fichier Excel en pièce jointe et
où je peux mettre du texte dans une introduction


Sub envoimail()
ActiveSheet.Range("A2:G57").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = Range("A7")
.Item.Subject = "bla bla bla"
'.Item.Send
End With
End Sub



Jusque-là tous va bien, mais je voudrais récupérer la signature que l’on met automatiquement dans les mails
(outil/ option/ format du courrier/ signature pour les nouveaux messages)
Et la placer dans l’introduction.
J’ai fouillé sur le forum mais apparemment je ne trouve pas de solution
 
Re : récupérer la signature faite avec Outlook 2003 et XP2

Bonjour La Vouivre,

Voici une solution :

Code:
Sub RecupSignature()
    ' Récupération de la signature
    Dim Signature As String
    
    Signature = GetBoiler("C:\Documents and Settings\B&B\Application Data\Microsoft\Signatures\cbea.txt")
    ' Il faut que tu remplaces : "B&B" par ton username (voir dans le répertoire C:\Documents and Settings\ )
    ' et tu dois également remplacer "cbea.txt" par le nom de ton fichier signature

    MsgBox Signature
End Sub

' Fonction pour récupérer la signature
Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    
    If Dir(sFile, vbDirectory) <> "" Then
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
        GetBoiler = ts.readall
        ts.Close
    End If
End Function
 
Re : récupérer la signature faite avec Outlook 2003 et XP2

Merci beaucoup de t’intéresser à mon petit problème
Je ne comprend pas ou se trouve ce fichier car j’ai seulement
C:\Documents and Settings\la vouivre \ Windows
Mes documents
Bureau
Favoris
Menu démarrer

J’ai windows XP2 avec Otlook 2003
Et ce que les fichiers sont dans windows j’ai regardé mais je ne les trouve pas
 
Re : récupérer la signature faite avec Outlook 2003 et XP2

Je viens de le découvrir tout seul comme un grand,il me fallais afficher les dossiers cachés
J’ai bien le fichier signature avec ma signature, mais elle ne s’affiche pas dans le mail,
J’ai un message erreur d’exécution 53 fichiers introuvables
Alors que je viens de le trouver
 
Re : récupérer la signature faite avec Outlook 2003 et XP2

c'est ce que je pensais...
il manque le nom du fichier de signature :

Signature = GetBoiler("C:\Documents and Settings\La Vouivre\Application Data\Microsoft\signatures\nomfichiersignature.txt")

Il faut que tu remplaces "nomfichiersignature.txt" par ton nom de fichier.
 
Re : récupérer la signature faite avec Outlook 2003 et XP2

Voici une solution :
Code:
Sub envoimail()
    Dim FicSignature As String
    
    ActiveSheet.Range("A2:G57").Select
    ActiveWorkbook.EnvelopeVisible = True
    
    FicSignature = "C:\Documents and Settings\La Vouivre\Application Data\Microsoft\signatures\[COLOR="Red"]nomfichiersignature.txt[/COLOR]"
    
    With ActiveSheet.MailEnvelope
        .Item.To = Range("A7")
        .Item.Subject = "bla bla bla" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
            GetBoiler(FicSignature)
        '.Item.Send
    End With
End Sub
 
Re : récupérer la signature faite avec Outlook 2003 et XP2

En essayant de comprendre avec le peut que je connaisse en VBA je vois qu’à la fin du code il y a
MsgBox Signature
Comment on peut faire pour ne pas avoir le MsgBox mais que la signature se mette sur l’introduction ou une cellule active de la feuille
 
Re : récupérer la signature faite avec Outlook 2003 et XP2

La signature dans la cellule A8 (par exemple) :
Code:
Sub RecupSignature()
    ' Récupération de la signature
    Dim Signature As String
    
    Signature = GetBoiler("C:\Documents and Settings\La Vouivre\Application Data\Microsoft\signatures\[COLOR="Red"]nomfichiersignature.txt[/COLOR]")

    Range("A8").Value = Signature
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour