Paramétrer le Content-Type d'un mail en VBA Access2003
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:
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 ?
Pour ceux que ça intéresse
Voici la soluce trouvée par le développeur fou, j'ai nommé moi-même :
Code:
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 |
:)
Content-Type en CDOSys.dll
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:
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 ???
