Envoi de mail via excel

[Adeus33]

Bonjour tous le monde

Je cherche a envoyé un onglet d'un classeur excel via lotus notes, mais pas en fichier joint , j'aimerai faire un copier coller des cellules (dans mon cas cellules de A1 à H26 de la Feuil3)

J'ai déjà réussi a envoyé un mail à l'aide du code suivant:

Sub EnvoiUnMail()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String
Dim MonMessage As Object

MailAd = Sheets('Feuil2').Range('B3')'emplacement de l'adresse mail
Subj = Sheets('Feuil2').Range('B4')'emplacement du titre du mail
msg = Sheets('Feuil2').Range('B5')'Corp du mail

URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Mon but est donc de mettre le cellules de A1 à H26 de la Feuil3 en Corp du mail.

Sachant que je n'ai pas réussi, j'ai eu l'idée de transformer l'onglet en question (Feuil3) en format HTML de manière a pouvoir l'incorporer dans le mail mais je n'ai pas réussi et c'est pour cela que je reviens vers vous en esperant qu'une ame charitable m'aide a trouver la solution.

Je me tiens a votre disposition pour tous renseignement supplémentaires.


Adeus33

 

[Adeus33]

Bon et bien j'y arrive pas sniff

Est ce que quelqu'un a autre chose a proposer?


Adeus33

 

[Adeus33]

Toujours personne!?

C'est pourtant un bon défis. Je suis surpris que si les as des as d'excel n'y arrive pas.

Enfin je continue a chercher. (mais je désespère un peu)

Bonne journée

Adeus33

 

[Adeus33]

En farfouillant sur d'autre site j'ai trouver la procedure pour exporter une selection en GIF.

J'ai donc essayé de mettre en commum les deux codes:

Sub EnvoiUnMailessai()
    Dim MailAd As String
    Dim msg As Object
    Dim Subj As String
    Dim URLto As String
    Dim MonMessage As Object
    Dim Plage As Range
    
    
    MailAd = Sheets('Donnée mail').Range('B3')   'adresse Email
    Subj = Sheets('Donnée mail').Range('B4')     'Titre du mail
    
    'Exportation de l'onglet au format GIF
    Feuil1.Select
    Set Plage = Application.InputBox(prompt:='Sélectionner votre zone: (Ex. A1:B10) ', _
    Title:='Sélection de zone ', Default:='$A$1', Type:=8)
    Application.ScreenUpdating = False
    Workbooks.Add
    Plage.CopyPicture
    ActiveSheet.Paste
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
        .Paste
        .Export 'C:\\Test.gif', 'GIF'
    End With
    

    With ActiveSheet.ChartObjects('Graphique 2')
        .Activate
        .Copy
    End With
    
    'Erreur au niveau de la ligne ci dessous
    msg = ActiveSheet.ChartObjects('Graphique 2')   'Corps du message
    

    URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
    
    'ActiveWorkbook.Close False
End Sub

J'arrive donc a créer un objet gif dans un autre classeur, j'arrive également a selectionner cet objet mais je n'arrive pas a le coller dans la partie corp du message

J'y suis presque (enfin je pense) pour finir la manip manuellement je n'ai plus qu'a cliquer sur la partie corp de texte puis faire un coller et c'est bon mais j'aimerai que cela se fasse automatiquement.

Je vous join un petit exemple

[file name=mailgif.zip size=14925]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mailgif.zip[/file]

Merci d'avance

 

[LINO60POST]

Bonjour le forum, Adeus33, ERIC S,

Regardes sur le lien suivant si cette macro écrite par Michelxld le 20-06-04 pour Marc peut te servir.

Lien supprimé
lino

 

[Adeus33]

Merci LINO60POST de t'interesser a mon probleme

En fait comme dans la plupart des codes que j'ai pu voir dans le forum, celui la permet d'envoyer des doc a l'aide des piece jointe alors que moi je souhaite simplement coller une image gif (qui est deja dans le presse papier )dans le corp du message.
En effet dans tous les codes que j'ai pu voir, le corp du message servait uniquement a mettre une simple phrase.

Voila j'espere que j'ai été assez clair dans mes explications.

En tous cas merci pour ton aide.

Adeus33