Envoi d'une image par mail outlook

Bonjour à tous,

Je viens vers vous car je bloque totalement sur une macro.
Je souhaiterai, via une macro VBA, envoyer une zone d'une feuille Excel en forma image par mail, en cliquant sur un bouton.

Dans la pièce jointe, la zone à envoyer en format jpg se trouve de la cellule B4 à la cellule D14.
Le mail d'envoi est lui en cellule F5.
Enfin, il y a également des personnes à ajouter en copie. Leurs mails se trouvent en colonne H (H5, H6 et H7).

Déjà, est-ce possible d'automatiser cet envoi.
Et si oui, est-ce que quelqu'un peut m'aider s'il vous plaît ?

Par avance, merci et bonne fin de journée.

Bonjour

Ci joint une proposition, pour le moment cela prépare le mail... on pourra faire l'envoi une fois la mise au point effectuée, pour le moment l'image jpg créé porte le nom "monimage.jpg" a adapter si besoin

Je précise que c'est Outlook qui est utilisé en l'absence d'informations

Fred

Bonjour,

Merci énormément, cela se précise concernant ce que je souhaite faire

C'est bien via Outlook que je souhaite envoyer les mails, donc parfait !

Est-ce possible qu'au lieu de mettre l'image en pièce jointe, on puisse l'intégrer dans le corps du mail ?
Et concernant l'objet du mail, l'idéal serait qu'il porte le nom d'une cellule, par exemple la cellule fusionnée en B6.

Encore merci pour cette aide, cela va me simplifier la vie !!

Bonjour

c'est con c'est la première proposition que j'avais fait hier... et en relisant la question... j'ai vue qu'il fallait mettre en pièce jointe... donc j'ai refait..

je referais le boulot ce soir..

là j'ai pas le temps.. je suis au boulot

Fred

Vraiment désolé, c'est moi qui me suis mal exprimé sur mon premier post.

Bonsoir

Ci joint donc une 2e proposition...

Voici un rendu du mail préparé :

image

Fred

Dans cette solution en fait c'est pas une image a proprement parlé... mais l'insertion d'un tableau dans le corps du mail...

si tu souhaite vraiment inséré une image.. demande...

Fred

Bonjour,

Merci beaucoup, tout fonctionne bien.

Si possible oui, je préférerai insérer une image, car en insérant le tableau, cela ne copie pas les différents logos/images que je vais ajouter dans ma présentation.

Cdt,

Julien

Bonjour...

pour avancer le problème... est-ce que ma première solution il y a bien tout dans l'image ??? si OK je vais voir comment l'insérer dans le corps du mail...

mais j'ai peur que mon code ne soit pas en mesure d'ajouter des images et autre logo dans l'image fabriquée...

Merci de me faire un retour

Fred

Oui, je confirme que lorsqu'on ajoute un logo dans la zone à copier, il apparaît bien dans la pièce jointe

Bonjour

CI joint une nouvelle proposition, ou l'image crée est insérée dans le corps du mail..

Fred

Bonjour,

Je viens de tester et l'image se colle bien dans le corps du mail, donc aucun souci pour ça.

Par contre, l'image apparaît en tout petit et donc est illisible.
Est-ce qu'il y aurait une solution du coup ?

Cordialement,

Julien

Et pour précision, j'ai agrandi dans le code HTML en passant de 250 à 750 (.HTMLBody = "<BODY><IMG src=""cid:" & simage & """ width=750> </BODY>"), mais la résolution de l'image reste de mauvaise qualité.

Re-bonjour,

Après avoir regardé plusieurs forums et adapter le code, j'ai enfin réussi à faire ce que je voulais.

Voici le code pour les personnes intéressées :

Sub envoimail()

Dim smail As Worksheet
Set smail = ActiveWorkbook.Sheets("Feuil1")

Dim r As Range
Set r = smail.Range("B4:D14")
r.CopyPicture xlScreen, xlBitmap

 On Error Resume Next
        Set OutApp = GetObject(, "Outlook.Application")
        If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
        On Error GoTo 0

         Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .BodyFormat = 3
            .To = [F5]
            .CC = [H5] & ";" & [H6] & ";" & [H7]
            .BCC = ""
            .Subject = [B6]

            Set olInsp = .GetInspector
            Set wdDoc = olInsp.WordEditor
            Set oRng = wdDoc.Range
            oRng.collapse 1
            oRng.Paste
            .Display
            '.send
        End With

End Sub

Et en pièce jointe, le fichier :

En tout cas, un grand merci fred2406 pour le temps que tu as accordé à mon problème et pour ton travail qui m'a permis de comprendre et adapter le code.

Bonne continuation et bon weekend !

Julien

Re Bonjour....

tant mieux que tu as une solution..

dans ce cas

Fred

Rechercher des sujets similaires à "envoi image mail outlook"