Voici le code :
Function Envoyer(Mail_Destin As String, Objet As String, Optional Sujet As String = "") As Boolean
Envoyer = False
Dim Serveur As String
Serveur = "smtp.st-georges.comact.com"
Set Sock = Form1.ws
Sock.Close
Sock.RemotePort = 25
Sock.RemoteHost = Serveur
Dim T(6) As String
Dim mFrom As String
Dim mTo As String
Dim mMess As String
mFrom = Userx & " " & "<" & Userx & "@comact.com" & ">"
mTo = "<" & Mail_Destin & ">"
MsgBox mTo
mMess = ""
mMess = "FROM: " & mFrom & vbCrLf & "Content-Type: text/html;" & vbCrLf & "TO: " & mTo & vbCrLf
If Sujet <> "" Then mMess = mMess & "SUBJECT:" & Sujet & vbCrLf & vbCrLf
mMess = mMess & Objet & vbCrLf
T(0) = "HELO " & Serveur & vbCrLf
T(1) = "MAIL FROM: " & "<" & Userx & "@comact.com" & ">" & vbCrLf
T(2) = "RCPT TO: " & mTo & vbCrLf
T(3) = "DATA" & vbCrLf
T(4) = mMess
T(5) = vbCrLf & Fichierx & "." & vbCrLf
T(6) = "QUIT" & vbCrLf
Dim i As Integer, C As Integer
Sock.Close
Sock.Connect
For C = 1 To 10
For i = 1 To 5000
DoEvents
Next i
DoEvents
If Sock.State = sckConnected Then Exit For
Next C
If Sock.State <> sckConnected Then Envoyer = False: Exit Function
For i = 0 To 6
DoEvents
If Not SdTxt(T(i)) Then
Exit For
Err.Number = 1
End If
Next i
If Err.Number = 0 Then Envoyer = True
End Function
'***********************************
Le probleme que jai est le suivant
Si ma valeur "Objet" n'est que du texte et qu'il y a un fichier joint, le e-mail se rends et s'affiche bien au destinataire.
Dans le cas où la valeur de "Objet" est du HTML et qu'il y a un fichier joint, le e-mail se rends au destinaire avec la piece jointe mais je vois tout le code html dans la page.
Dans le cas ou la valeur de "Objet" est du HTML et qu'il n'y a PAS DE fichier joint, le e-mail se rends au destinaire et s'affiche correctement sous le format HTML.
Est-ce que ma valeur "Fichierx" (qui est mon fichier) nuise a mon Content-Type: text/html; dans le codage du e-mail ?
Merci