Discussion :

[Tempus01]

Bonjour le forum,


Je n'arrive pas à finaliser le code d'envoi de mail par Outlook

Voici le code que j'utilise

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
  Private Sub Mail_Click(sender As Object, e As EventArgs) Handles Mail.Click
 
 
        Try
 
 
            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.CC = "essai2.essai2.com"      
            Mail.Subject = "Demande de Devis"
 
            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 le devis " & TextBox31.Text  & "<br/>" & "<br/>" & "Cordialement," & "<br/>" & "<br/>"
           ' Mail.Body = "Bonjour,....."
            Mail.Display()
            My.Computer.FileSystem.DeleteFile("C:\Users\All Users\Image.bmp",
            Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
            Microsoft.VisualBasic.FileIO.RecycleOption.SendToRecycleBin)
 
        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

Le code fonctionne, j'ai bien Outlook qui s'ouvre avec la piéce jointe demandée, l'adresse mail du destinateur, ma signature Outlook, mais si je rajoute du texte avec l'une des méthodes ci dessous, ma signature disparait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   ' Mail.HTMLBody = "Bonjour," & "<br/>" & "<br/>" & "Voici le devis " & TextBox31.Text  & "<br/>" & "<br/>" & "Cordialement," & "<br/>" & "<br/>"
           ' Mail.Body = "Bonjour,....."

Les message composées dans Outlook sont en HTML.

Après divers essais infructueux, je requière votre aide

Merci à vous,

[umfred]

La signature étant dans le corps du message, si tu remplaces le corps du message, la signature disparait.
Il faudrait rajouter à la fin du corps, ce qu'il y a dans le corps au début (soit sauvegarder le corps (body) au début avant de le modifier et l'ajouter à la fin si le corps du message se fait en plusieurs étapes, sinon le rajouter dans la foulée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Mail.HTMLBody = "Bonjour," & "<br/>" & "<br/>" & "Voici le devis " & TextBox31.Text  & "<br/>" & "<br/>" & "Cordialement," & "<br/>" & "<br/>" & Mail.HTML.Body
           ' Mail.Body = "Bonjour,....." & Mail.Body

A vérifier dans quelle partie se trouve la signature (Mail.HTML.Body ou Mail.Body)

[Tempus01]

Bonjour umfred,

Merci pour votre aide, votre idée fonctionne c'est parfait.