Mail HTML avec image

Bonjour

via outlook, je ne sais pas
via CDO, c'est possible à condition de lire le fichier html comme ceci :

Function SendMailCDO(Sender As String, Receiver As String, _
Subject As String, strFile As String, _
Optional Cc As String, Optional Bcc As String)
On Error Resume Next

'Late Binding = Pas de référencement requis

Dim Cdo_Config As Object
Dim Cdo_Message As Object


Set Cdo_Config = CreateObject("CDO.Configuration")
Set Cdo_Message = CreateObject("CDO.Message")

With Cdo_Config.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set Cdo_Message.Configuration = Cdo_Config

With Cdo_Message
.To = Receiver
.From = Sender
.Subject = Subject
.Cc = Cc
.Bcc = Bcc
.CreateMHTMLBody "File://" & strFile, 0
.Send
End With

Set Cdo_Config = Nothing
Set Cdo_Message = Nothing

If err <> 0 Then
MsgBox err.Description
Else
MsgBox "Message envoyé"
End If
End Function

Sub test2()
SendMailCDO "emetteur@domaine.fr", "destinataire@domaine.frr", "Fichier HTML Local envoyé par CDO ", "E:fiche.htm", "", ""
End Sub

a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------


"Monkeytoo" <Monkeytoo@discussions.microsoft.com> a écrit dans le message de news:
B46D788A-2D61-4951-BEBC-5C30BAD56EF3@microsoft.com...

Bonjour à tous
Je voudrais envoyer un mail au format HTML mais en insérant une image
Je ne connais pas le code pour envoyer une image dans le corps de Outlook à
partir d'Access
Merci d'avance

Désolé, je me suis peut-êtremal exprimé.
Commeje comprends votre code, le fichier HTML (fiche.htm) est créé et est
envoyé en pièce jointe.
Ce que je voulais faire, c'est avoir le corpsdu texte dans Outlook (cela j'y
arrive) et y ajouter une image. De sorte que la personne qui reçoit le mail
puisse lire lecntenu dans sa messagerie sans ouvrir un autre exe.
J'espère avoir été plus clair.
Merci

Bonjour

via outlook, je ne sais pas
via CDO, c'est possible à condition de lire le fichier html comme ceci :

Function SendMailCDO(Sender As String, Receiver As String, _
Subject As String, strFile As String, _
Optional Cc As String, Optional Bcc As String)
On Error Resume Next

'Late Binding = Pas de référencement requis

Dim Cdo_Config As Object
Dim Cdo_Message As Object


Set Cdo_Config = CreateObject("CDO.Configuration")
Set Cdo_Message = CreateObject("CDO.Message")

With Cdo_Config.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set Cdo_Message.Configuration = Cdo_Config

With Cdo_Message
.To = Receiver
.From = Sender
.Subject = Subject
.Cc = Cc
.Bcc = Bcc
.CreateMHTMLBody "File://" & strFile, 0
.Send
End With

Set Cdo_Config = Nothing
Set Cdo_Message = Nothing

If err <> 0 Then
MsgBox err.Description
Else
MsgBox "Message envoyé"
End If
End Function

Sub test2()
SendMailCDO "emetteur@domaine.fr", "destinataire@domaine.frr", "Fichier HTML Local envoyé par CDO ", "E:fiche.htm", "", ""
End Sub

a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------


"Monkeytoo" <Monkeytoo@discussions.microsoft.com> a écrit dans le message de news:
B46D788A-2D61-4951-BEBC-5C30BAD56EF3@microsoft.com...

Bonjour à tous
Je voudrais envoyer un mail au format HTML mais en insérant une image
Je ne connais pas le code pour envoyer une image dans le corps de Outlook à
partir d'Access
Merci d'avance