Bonsoir,
j'arrive bien à envoyer un Email avec SendMail mais impossible de joindre la signature:
La signature s'affiche en code HTML :/ j'ai essayé avec le fichier RTF, mais pareil.
J'ai vu qu'il fallait décocher "use MO word to edit Email messages" dans outlook mais cela ne change rien.
Merci a vous.
j'arrive bien à envoyer un Email avec SendMail mais impossible de joindre la signature:
Code:
Sub EMAIL()
With Dest
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
End With
SigString = "S:\Clients\C\Assistante Service Client\SUIVI de PROD\Signature.htm"
'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")
'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)
'Check the signature path
If Dir(SigString) <> "" Then
Signature = Get_Signature(SigString)
Else
Signature = ""
End If
With message
.Subject = "SUIVI de PRODUCTION S" & NOSEM(Date)
.body = "Bonjour," & Signature
.Recipients.Add Sheets("Mode OP").Range("H3").Value
'.CC Add("Mode OP").Range(H3).Select
.attachments.Add "S:\C\CA_Atlantica\Assistante Service Client\SUIVI de PROD\Suivi HEBDO\SUIVI PROD Sem " & NOSEM(Date) & ".xls"
.Send
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Function Get_Signature(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
Get_Signature = ts.ReadAll
ts.Close
End FunctionLa signature s'affiche en code HTML :/ j'ai essayé avec le fichier RTF, mais pareil.
J'ai vu qu'il fallait décocher "use MO word to edit Email messages" dans outlook mais cela ne change rien.
Merci a vous.
