Bonjour,

Pour envoyer un mail en Access2003, j'utilise la DLL cdosys.dll qui gère les objets CDO.

Pour un envoi simple, no problem.

Mais ce que je n'arrive pas à faire c'est de modifier certains champs, en particulier Content-type,
qui reste obstinément à "text/plain; charset=iso-8859-1".
Mon code est :
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
 
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
 
Dim Flds As ADODB.Fields
Set Flds = iConf.Fields
 
With Flds
  .Item(CdoMailHeader.cdoContentType) = "Application/EDI-consent"     
  .Update
End With
 
With iMsg
  Set .Configuration = iConf
      .To = toto@toto.com
      .From = "mmm@mmm.com"
      .Subject = "Le sujet"
      .TextBody = "le contenu "
      .Send
End With
Quelqu'un pourrait-il m'aider ?