Bonjour à tous,
Je rencontre une difficulté avec le code ci-dessous. Ce dernier crée et affiche un mail avec ma signature en format txt. J’aimerai que celle-ci apparaisse en format HTML (avec l’image, la mise en forme…). J’ai changé l’extension de mon fichier signature (en remplaçant .txt par .html) mais le code me colle toujours ma signature en format .txt et qui ressemble à ça :
Comptabilité Clients
<img src="file:///C:\Documents and Settings\Administrateur\Bureau\LOGO MT.gif"><br>
<font face="Tahoma" size="2"font color="#808080"><b>Benoit Tellier</b></font><br>
<font face="Tahoma" size="2"font color="#808080">tél: 01 41 92 </b></font><br>
<font face="Tahoma" size="2"font color="#808080">fax: 01 41 92 </b></font><br>
<font face="Tahoma" size="2"font color="#808080">95 route des près</b></font><br>
<font face="Tahoma" size="2"font color="#808080">Torcy</b></font><br>
<font face="Tahoma" size="2"font color="#FFA500" a href="http://file:///www.magze.com/">www.magze.com</a>
Voici le code en question :
Sub SendMail_Relance()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim Chemin$, Client$, Fichier$
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Range("a13").Value
.Subject = Range("a10").Value
.Body = ActiveSheet.Range("E19") & ActiveSheet.Range("L19") & vbNewLine & _
"" & vbNewLine & vbNewLine & _
ActiveSheet.Range("A11") & "," & vbNewLine & _
vbNewLine & _
"Nous vous prions de trouver ci-dessous le relevé de votre compte ..." & vbNewLine & _
"Cordialement," & vbNewLine & _
vbNewLine & _
"Comptabilité Clients" & vbCrLf & _
""&recuptxt("
C:\Documents and Settings\(tonusernam)\Application Data\Microsoft\Signatures\monfichier.txt")
.Display '.Send
End With
End Sub
Merci d’avance si vous pouvez m'éclairer.
Benoit.
Je rencontre une difficulté avec le code ci-dessous. Ce dernier crée et affiche un mail avec ma signature en format txt. J’aimerai que celle-ci apparaisse en format HTML (avec l’image, la mise en forme…). J’ai changé l’extension de mon fichier signature (en remplaçant .txt par .html) mais le code me colle toujours ma signature en format .txt et qui ressemble à ça :
Comptabilité Clients
<img src="file:///C:\Documents and Settings\Administrateur\Bureau\LOGO MT.gif"><br>
<font face="Tahoma" size="2"font color="#808080"><b>Benoit Tellier</b></font><br>
<font face="Tahoma" size="2"font color="#808080">tél: 01 41 92 </b></font><br>
<font face="Tahoma" size="2"font color="#808080">fax: 01 41 92 </b></font><br>
<font face="Tahoma" size="2"font color="#808080">95 route des près</b></font><br>
<font face="Tahoma" size="2"font color="#808080">Torcy</b></font><br>
<font face="Tahoma" size="2"font color="#FFA500" a href="http://file:///www.magze.com/">www.magze.com</a>
Voici le code en question :
Sub SendMail_Relance()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim Chemin$, Client$, Fichier$
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Range("a13").Value
.Subject = Range("a10").Value
.Body = ActiveSheet.Range("E19") & ActiveSheet.Range("L19") & vbNewLine & _
"" & vbNewLine & vbNewLine & _
ActiveSheet.Range("A11") & "," & vbNewLine & _
vbNewLine & _
"Nous vous prions de trouver ci-dessous le relevé de votre compte ..." & vbNewLine & _
"Cordialement," & vbNewLine & _
vbNewLine & _
"Comptabilité Clients" & vbCrLf & _
""&recuptxt("
C:\Documents and Settings\(tonusernam)\Application Data\Microsoft\Signatures\monfichier.txt")
.Display '.Send
End With
End Sub
Merci d’avance si vous pouvez m'éclairer.
Benoit.