Envoi mail auto avec image

Version imprimable

14/05/2013, 11h30
pitipilot

Envoi mail auto avec image

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 :)
14/05/2013, 13h58
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:

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.
14/05/2013, 14h14
Fvandermeulen

Salut,

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

A+
14/05/2013, 15h34
patricktoulon

heu

bonjour
regarde dans ma signature

Cdo ca te parle???

Au plaisir
15/05/2013, 08h08
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 ?
15/05/2013, 11h05
patricktoulon

re

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
16/05/2013, 08h01
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

Bonjour,

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

Code:

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

12/07/2013, 12h08
patricktoulon

re

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 ??
12/07/2013, 12h20
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