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

VB.NET Discussion :

Ajouter sa signature à un mail Outlook


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Technicien
    Inscrit en
    Juillet 2020
    Messages
    141
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien

    Informations forums :
    Inscription : Juillet 2020
    Messages : 141
    Par défaut Ajouter sa signature à un mail Outlook
    Bonjour le Forum,

    Je souhaiterais que Outlook ajoute ma signature mais je n'ai pas trouvé grand chose sur le net sur ce sujet.

    Voici le code qui j'utilise pour envoyer un mail
    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
    39
    40
    41
    42
    43
    44
        Dim sFilePath As String
                Dim ext As String
     
                ConvertTabPage_BMP(TabPage1, sFilePath, ext)
     
     
                Dim Outlook As Outlook.Application
                Dim Mail As Outlook.MailItem
                Dim Acc As Outlook.Account
     
                Outlook = New Outlook.Application()
                Mail = CType(Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem), Outlook.MailItem)
                Mail.To = "essai@essai.com"
                Mail.Subject = "essai ABC"
     
     
                For Each Acc In Outlook.Session.Accounts
     
                    If Acc.AccountType = Microsoft.Office.Interop.Outlook.OlAccountType.olPop3 Then
                        Mail.Sender = CType(Acc, Outlook.AddressEntry)
                    End If
                Next
     
     
                Mail.Attachments.Add("C:\Users\All Users\ABC.jpeg")
     
                '  Mail.HTMLBody = "Bonjour,"
     
     
                Mail.Body = "Bonjour,
     
    Voici les dernières nouvelles.
     
    Merci,
     
    Cordialement,"
     
                Mail.Display()
            Catch ex As Exception
     
                MessageBox.Show("Opération annulée par l'utilisateur !", "Envoyer un e-mail", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
            End Try
        End Sub
    Je pense qu'il doit être possible d'ajouter sa signature personnel Outlook

    Merci pour votre aide.

  2. #2
    Expert confirmé
    Avatar de popo
    Homme Profil pro
    Analyste programmeur Delphi / C#
    Inscrit en
    Mars 2005
    Messages
    2 972
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste programmeur Delphi / C#
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 2 972

  3. #3
    Membre confirmé
    Homme Profil pro
    Technicien
    Inscrit en
    Juillet 2020
    Messages
    141
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien

    Informations forums :
    Inscription : Juillet 2020
    Messages : 141
    Par défaut
    Bonjour Popo,

    Merci pour les exemples, cala m'a bien aidé, voici le code qui fonctionne pour moi.
    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
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
     Private Function ReadSignature() As String
            ' Dim appDataDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Microsoft\Signatures\Moi_fichiers"
            Dim appDataDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Microsoft\Signatures"
            Dim signature As String = String.Empty
            Dim diInfo As DirectoryInfo = New DirectoryInfo(appDataDir)
     
            If diInfo.Exists Then
                  Dim fiSignature As FileInfo() = diInfo.GetFiles("*.htm")
               ' Dim fiSignature As FileInfo() = diInfo.GetFiles("*.txt")
                If fiSignature.Length > 0 Then
                    Dim sr As StreamReader = New StreamReader(fiSignature(0).FullName, Encoding.[Default])
                    signature = sr.ReadToEnd()
     
                    If Not String.IsNullOrEmpty(signature) Then
                        Dim fileName As String = fiSignature(0).Name.Replace(fiSignature(0).Extension, String.Empty)
                        signature = signature.Replace(fileName & "_files/", appDataDir & "/" & fileName & "_files/")
                    End If
                End If
            End If
     
            Return signature
        End Function
     
     Dim sFilePath As String
                Dim ext As String
                '  Dim GetInspector As Outlook.Inspector
                sFilePath = "C:\Users\All Users\image.bmp" 
                ext = "bmp"
                ConvertTabPage_BMP(TabPage1, sFilePath, ext)
                Dim Outlook As Outlook.Application
                Dim Mail As Outlook.MailItem
                Dim Acc As Outlook.Account
                ' Dim signature As Outlook.m
                Outlook = New Outlook.Application()
                Mail = CType(Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem), Outlook.MailItem)
                Mail.To = "essai.com"
                Mail.CC = "essai.com"
     
                '  GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
                Mail.Subject = "Sujet"
     
                For Each Acc In Outlook.Session.Accounts
     
                    If Acc.AccountType = Microsoft.Office.Interop.Outlook.OlAccountType.olPop3 Then
                        Mail.Sender = CType(Acc, Outlook.AddressEntry)
                    End If
                Next
     
                Mail.Attachments.Add("C:\Users\All Users\image.bmp")
     
     
                 Mail.HTMLBody = "Bonjour," & "<br/>" & "<br/>" & "Voici les documents demandés " & TextBox31.Text  & TextBox2.Text & "<br/>" & "<br/>" & "Cordialement," & "<br/>" & "<br/>" & ReadSignature()

    Il y a cependant un petit bémol Outlook n'arrive pas à afficher les images de la signature, seul le texte est visible " impossible d'afficher cette image", comme si le format d'image n'était pas reconnu. Dans m'a signature il y a 3 images 2 BMP et 1 jpg.

  4. #4
    Expert confirmé
    Avatar de popo
    Homme Profil pro
    Analyste programmeur Delphi / C#
    Inscrit en
    Mars 2005
    Messages
    2 972
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste programmeur Delphi / C#
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 2 972
    Par défaut
    Citation Envoyé par Tempus01 Voir le message
    Il y a cependant un petit bémol Outlook n'arrive pas à afficher les images de la signature, seul le texte est visible " impossible d'afficher cette image", comme si le format d'image n'était pas reconnu. Dans m'a signature il y a 3 images 2 BMP et 1 jpg.
    N'oublie pas qu'Outlook s'adapte à la langue ton OS.
    Sur un OS en français cette ligne (ligne 16) ne vas pas fonctionner.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    signature = signature.Replace(fileName & "_files/", appDataDir & "/" & fileName & "_files/")
    Sur mon poste elle donnerait ceci :
    C:\Users\popo\AppData\Roaming\Microsoft\Signatures\Default_files

    Alors qu'en réalité le chemin est celui-là :
    C:\Users\popo\AppData\Roaming\Microsoft\Signatures\Default_fichiers

    Par ailleurs, tu confonds les slash et les antislash, et du coup, tu utilises les deux.
    Utilise Path.Combine pour être certain de mettre le bon caractère de séparation.

Discussions similaires

  1. Signature Windows mail : ajouter adresse internet + lien
    Par Martini91 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 27
    Dernier message: 07/01/2014, 17h08
  2. Réponses: 1
    Dernier message: 13/12/2011, 17h33
  3. [XL-2003] Signature mail outlook
    Par buhrne dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/03/2010, 09h43
  4. Envoi mail Outlook : signature
    Par PhRey dans le forum VBA Access
    Réponses: 5
    Dernier message: 12/02/2009, 09h43
  5. [Mail] Ajout auto dans le calendrier "Outlook"
    Par EFCAugure dans le forum Langage
    Réponses: 7
    Dernier message: 04/12/2006, 16h42

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