Envoi mail avec plage de cellule dans coprs

[j_lestrat]

Bonjour,

Je débute en VBA, j'ai lu pas mal de chose sur le forum mais je n'arrive pas a solutionner mon pb :

Je dois envoyer dans le corps de mon mail une feuille excel générée en VBA accompagnée d'un message, à un destinataire dont l'adresse se situe dans une cellule excel.

Je travaille sous Office 2000 et Windows XP PRO.

J'ai essayer avec la fonction Activeworkbook.Envelopevisible = True mais ça ne marche pas... (pas la bonne version xl je pense).

Pouvez vous m'aider ?

Sinon est il possible de paramettrer un message avec la fonction ActiveWorkbook.SendMail ?

Merci d'avance pour vos réponses

 

[Manu62]

Re : Envoi mail avec plage de cellule dans coprs

Bonjour,

Ci joint des liens qui pourront t'aider.

https://www.excel-downloads.com/threads/envoi-mail-2003-2007-reference-absente.105321/

https://www.excel-downloads.com/threads/envoi-mail-pj-adresse-dans-cellule.105828/

Bon courage

Manu

 

[j_lestrat]

Re : Envoi mail avec plage de cellule dans coprs

Merci
Mais ce qui me bloque réellement c'est de pourvoir mettre des cellules dans le corps du mail. Quand je mets le code suivant j'ai une erreur d'incompatibilité de type...

With MItem
.To = Sheets("Etat").Cells(i, 10)
.Subject = "texte sujet"
.Body = Range("A1:E13").Value
.Send
End With

 

[Manu62]

Re : Envoi mail avec plage de cellule dans coprs

Bonjour,

Peux tu poster le fichier.

Manu

 

[j_lestrat]

Re : Envoi mail avec plage de cellule dans coprs

Le voici
L'objet est de relancer des structures en fonction des réponses déjà fournies ou non.
Sur la feuille 2008 : ce que je saisie mensuellement
Sur la feuille Etat : le suivi
Sur la feuille Relance : ce que je veux envoyer
Merci de ton aide

 

[Guest]

Re : Envoi mail avec plage de cellule dans coprs

bonjour J_Lestrat,

Tu peux essayer avec une fonction comme celle-ci, qui concatène le texte affiché des cellules avec une tabulation entre chaque cellule et un saut de ligne entre chaque ligne.

Function Texte() As String
    Dim c As Range
    Dim r As Range
    Dim t As String
    t = ""
    For Each r In Range("A1:E13").Rows
        For Each c In r.Cells
            t = t & c.Text & vbTab
        Next c
        t = Left(t, Len(t) - 1)
        t = t & vbNewLine
    Next r
    t = Left(t, Len(t) - 1)
    Texte = t
End Function

Ensuite dans le code de la macro Mail:

Dim LeTexte as string
LeTexte=Texte()

With MItem
.To = Sheets("Etat").Cells(i, 10)
.Subject = "texte sujet"
.Body = LeTexte
.Send
End With

A bientôt

 

[j_lestrat]

Re : Envoi mail avec plage de cellule dans coprs

😕
J'ai essayer avec ce code mais j'ai toujours un pb : "erreur automation".
Je ne comprends pas d'ou ça peut venir.

 

[Guest]

Re : Envoi mail avec plage de cellule dans coprs

RE,

N'ayant pas outlook à la maison, je ne peux pas tester mais:

1 - Erreur de syntaxe: j'avais oublié le e final (LeTexte)

With MItem
.To = Sheets("Etat").Cells(i, 10)
.Subject = "Relance"
.Body = LeText[SIZE=3][COLOR=red]e[/COLOR][/SIZE]
.Send
End With

2 - en ce qui concerne l'erreur automation elle peut provenir de beaucoup de choses, notament la création de l'objet Outlook.Application ou de la méthode createItem.

Désolé, de ne pouvoir t'en dire plus.

A bientôt