Discussion :

[pitipilot]

Bonjour !

J'ai besoin d'envoyer un mail depuis une application VBA générant des graphiques automatiquement. L'idée serais d'envoyer ces graphiques par mail.

Est-ce possible sans client mail (outlook,..) préalablement installé ?

Le mieux serais que les graphiques ne soient pas en PJ mais directement affiché (comme dans les pubs qu'on se mange par mail).

Merci d'avance à ceux qui se pencheront sur mon cas épineux

[Invité]

Tu trouveras pas mal d'information dans ce tutoriel http://dolphy35.developpez.com/article/outlook/vba/

Je ne sais pas si tu utiliser la bibliothèque Outlook sans Outlook. Si ce code fonctionne ça doit être bon:

Code :

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

1
2
3
4
5
6
7
Private Sub TestOutlook()
Dim myolApp As Object
 
    Set myolApp = CreateObject("Outlook.Application")
    Set myolApp = Nothing
 
End Sub

Le mieux c'est de coder ton application en 'late binding' pour ne pas avoir de problème de référence.

[Fvandermeulen]

Salut,

Sinon cette discussion va peut-être pouvoir t'aider:
http://www.developpez.net/forums/d83...-tableau-mail/

A+

[patricktoulon]

bonjour
regarde dans ma signature

Cdo ca te parle???

Au plaisir

[pitipilot]

Merci pour vos réponses

vcottineau -> Ta solution nécessite une messagerie pré-installée ce qui n'est pas mon cas malheureusement

patricktoulon -> Je connais effectivement CDO et ton exemple est très bien construit, cependant, est-ce possible d'insérer directement une image dans le mail avec CDO ?

[patricktoulon]

Bonjour

Oui c'est possible a condition de poster le fichier image quelque part comme cijoint.com par exemple et mettre le lien dans le texte html du message

Il y a peut être d'autre solution mais je ne les connais pas
Voila une question que j'avais laissé en suspens il y a pas mal de temps ,je vais me renseigner


Au plaisir

[pitipilot]

Bonjour,

Le problème c'est que l'image que je veux afficher est un graphique excel généré en VBA automatiquement c'est pourquoi je ne peux pas préalablement héberger cette image. Je sais que c'est un cas très embêtant désolé

Bonne journée

[pitipilot]

Bonjour,


J'ai réussi à configurer l'envoi de mail ainsi que l'insertion d'une image dans le corps du message :

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
21
22
23
24
25
26
 
Dim oCDO
 
Set oCDO = CreateObject("CDO.Message")
Set objBP = oCDO.AddRelatedBodyPart(".\exemple.jpg", "exemple.jpg", CdoReferenceTypeName)
    objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<exemple.jpg>"
    objBP.Fields.Update
With oCDO
   With .Configuration.Fields ' Configuration "du compte mail SMTP"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Serveur SMTP"
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "@ de l'émetteur"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot de passe"
     '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
     '----------------
     .Update
    End With
  .From = "@ émetteur"
  .to = "@ récepteur"
  .Subject = "Essai de mail" & Now
  .HTMLBody = "test"
  .Send
End With

[patricktoulon]

Bonjour

je viens d'essayer ton peit code

il envoie bien l'image mais pas dans le corps du message en piece jointe de type album

ca n'est pas la meme chose ,tu comprends ce que je veux dire ??

[pitipilot]

Qu'il n'est pas inclus dans le corps HTML du message ?
En tout cas au niveau de l'affichage c'est ce que je cherche, maintenant si je peux ajouter un peu de HTML autour ça peut être sympa