Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook Dessiner un tableau dans message via VBA

Dessiner un tableau dans message via VBA

1 réponse
Avatar
isa911
Bonjour,=20

Je cherche =E0 savoir comment je pourrais dessiner puis=20
remplir un tableau dans le corps de message d'Outlook en=20
VBA depuis Access ?

J'ai bien trouv=E9e comment le faire sur Word, mais pas=20
Outlook ...

Quelqu'un peut il m'aider ?
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Grég
Bonjour/soir,

Quelque chose comme ça, mais je n'ai pas testé:

Sub testsendbycdo()
Dim CDO_Message As New CDO.Message
With CDO_Message

.To = ""
.Subject = "L'objet du message CDO"
.htmlBody "<HTML><HEAD></HEAD><BODY><TABLE><TR><TD></TD></TR></TABLE></BODY></HTML>"
'.AddAttachment ("c:fichier.txt")
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.myisp.com"
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
End With

End Sub


réf:
http://www.microsoft.com/technet/community/scriptcenter/entscr/scrent16.mspx

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/e2k3/e2k3/_cdo_imessage_htmlbody.asp


--
Grég


"isa911" a écrit dans le message de
news:129b301c44322$fb686b50$
Bonjour,

Je cherche à savoir comment je pourrais dessiner puis
remplir un tableau dans le corps de message d'Outlook en
VBA depuis Access ?

J'ai bien trouvée comment le faire sur Word, mais pas
Outlook ...

Quelqu'un peut il m'aider ?