insertion d'une ou plusieurs photos en PJ d'un mail.

titistratocaster

XLDnaute Nouveau
Bonjour,

Je viens vers vous pour une aide.
J' ai une macro (ci jointe) qui me permet d'envoyer par mail et en PJ un fichier PDF créé à partir d'une feuille Excel.
J'aimerais au moment où je confirme l'envoi, une boite de dialogue ou autre qui me demande si je veux insérer ou non une ou plusieurs photos.
Si oui, que ça me demande des sélectionner la ou les photos et les ajouter en PJ avec le PDF.
Sinon l'envoi ce fait normalement.
Merci pour vos retours.

Cordialement
 

Pièces jointes

  • vba envoi.txt
    1.7 KB · Affichages: 11

Pounet95

XLDnaute Occasionnel
Bonsoir,
Trouvé dans Développez.com
J'ai testé avec 1 image en jpg: ça fonctionne
Pour plusieurs je ne sais pas car je ne pas fan d'outlook d'une part et je ne connais pas le HTML
C'est juste la curiosité qui m'a poussé vers une recherche forum Outlook

VB:
sub Envoi_Outlook()
    Dim objOL As Object, ObjMail As Object
    Dim oAttach As Object, ColAttach As Object
    
    Set objOL = CreateObject("Outlook.Application")
    Set ObjMail = objOL.CreateItem(0)
    Set ColAttach = ObjMail.attachments
    Set oAttach = ColAttach.Add("<chemin complet de l'image>") 'Changer le chemin et le nom de l'image
    
    With ObjMail
        .to = Cells(1, 1)         'destinataire
        .CC = Cells(2, 1)        'copie à
        .Subject = Cells(3, 1)     'sujet'
        .HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
            "Bonjour, <br><br><IMG src=cid:Mon_Image></BODY>"   'Nom de l'image sans chemin
        .Save
        .Display    'Send   Display permet d'afficher le message, Send l'envoie sans affichage
    End With
    
    Set oAttach = Nothing
    Set ColAttach = Nothing
    Set ObjMail = Nothing
    Set objOL = Nothing
End Sub
 

titistratocaster

XLDnaute Nouveau
Bonsoir,
merci pour ce retour qui m'apporte une piste, mais n'étant pas encore très à l'aise avec VBA, je n'arrive pas à faire la modif et l'intégrer dans mon code.
En effet, je récapitule plus en détail mon projet :
J'ai une feuille Excel que je remplie,quand je clique sur un bouton j'ai un msgbox oui/non qui me demande de confirmer l'envoi de cette feuille transformée en pdf. Si oui cet envoi ce fait automatiquement avec le pdf en PJ, si non je reste sur ma feuille pour éventuelles modif.
Donc, j'aimerais qu'avant la msgbox, une autre me demande si je veux joindre des photos. Si oui me propose un cheminement pour aller les chercher si non mon envoi ce fait normalement avec le pdf.
j'espère m’être fait comprendre et ne pas être trop exigeant.
Encore merci et je continu tous de même de mon coté.
 

kingfadhel

XLDnaute Impliqué
Bonsoir,
merci pour ce retour qui m'apporte une piste, mais n'étant pas encore très à l'aise avec VBA, je n'arrive pas à faire la modif et l'intégrer dans mon code.
En effet, je récapitule plus en détail mon projet :
J'ai une feuille Excel que je remplie,quand je clique sur un bouton j'ai un msgbox oui/non qui me demande de confirmer l'envoi de cette feuille transformée en pdf. Si oui cet envoi ce fait automatiquement avec le pdf en PJ, si non je reste sur ma feuille pour éventuelles modif.
Donc, j'aimerais qu'avant la msgbox, une autre me demande si je veux joindre des photos. Si oui me propose un cheminement pour aller les chercher si non mon envoi ce fait normalement avec le pdf.
j'espère m’être fait comprendre et ne pas être trop exigeant.
Encore merci et je continu tous de même de mon coté.

le fichier joint est dans ce contexte.

1- Msgbox + oui = Msgbox + question ajout photos
2- Selection = envoi mail + pdf + photos

1- Msgbox + non = envoi mail + pdf
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG