Envoyer toute une ligne par Outlook

[PatLac]

Bonjour à tous !
Je voudrais envoyer le contenu d´une ligne par Outlook.
là c´est la 1, mais ca peut aussi etre une autre...en fait ce sera celle qui vient d´etre écrite !
Je suis sous excel 2010 avec outlook 2010 ...
D´avance merci pour votre aide.

 

[Staple1600]

Bonsoir le fil, le forum

Cela devrait fonctionner

Sub a()
Dim f As Worksheet, l&, c&, rng As Range, t, message$
Set f = ActiveSheet
l = f.Cells(Rows.Count, 1).End(3).Row: c = Cells(l, Columns.Count).End(-4159).Column
Set rng = Range(f.Cells(l, 1), f.Cells(l, c))
t = VBA.Join(Application.Transpose(Application.Transpose(rng)), vbCrLf)
message = t
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "prenom.nom@domaine.fr" 'mettre un mail valide
        .Subject = "TEST EMAIL": .body = message: .send
    End With
End Sub

 

[PatLac]

Bonjour Staple1600 !
Merci pour le retour, ca fonctionne sur le principe!
Mais ( car il y a toujours ce genre de trucs) :
Est-t-il possible que Outlook s´ouvre de manière a voir le contenu du mail avant envoi ?
D´ajouter une ligne "sujet" ?
D´ajouter un texte prédéfini dans le corps de message (toujours le meme texte en fait), en plus de ce qui sera envoyé ?
Et en dernier, de choisir la ligne qui sera envoyée?

Merci pour votre patience et vos compétences !

 

[Staple1600]

Bonsoir le fil, le forum,

Remplacer .send par .display dans la macro

 

[PatLac]

Bonsoir !
C'est nickel. Merci beaucoup ....

Bonne continuation !