Discussion :

[olaf_le_preux]

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 ?

[olaf_le_preux]

Voici la soluce trouvée par le développeur fou, j'ai nommé moi-même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim FieldsMess As adodb.Fields
Set FieldsMess = iMsg.Fields
    With FieldsMess
     .Item("urn:schemas:mailheader:content-type") = "smime-type  = enveloped-data;Name = ""Texte.txt"""
     .Update
    End With

[olaf_le_preux]

Bonjour,

Si je rouvre ce fil , c'est que ce "content-type" fonctionne bizarrement.
Comme je l'indique sur mon dernier message, le code que je présente marche bien.

MAIS, si l'on veut y postionner le type/sous-type MIME, ça coince.

Par exemple avec text/html, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim FieldsMess As adodb.Fields
Set FieldsMess = iMsg.Fields
    With FieldsMess
 .Item("urn:schemas:mailheader:content-type") = "Content-Type = text/html ; smime-type  = enveloped-data;Name = ""smime.html"""
     .Update
    End With

envoie toujours Content-type : text/plain (visible en "propriétés" du mail reçu).
Je soupçonne cdosys.dll de fonctionner en fonction d'un paramétrage forcé, ou tout simplement d'être boguée ?!
Qui sait ???