Envoie

[romlo47]

Bonjour,

je souhaite envoyer un mail avec Outlook a partir d'une macro Excel, j'ai trouvé le code Vba :

Sub SendMail_Outlook()
EmailSubject = InputBox("Indiquer le sujet de votre e-mail", "Sujet du message") 'Demande du sujet du message
emailmsg = InputBox("Indiquer votre message", "Message") 'Demande du contenu du message
emaildest = "romain.laubal@cdiscount.com"
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
objSession.Logon 'Connection à Outlook
With ObjMessage
.To = emaildest
.CC = ""
.Subject = EmailSubject
.Body = emailmsg
.Send
End With
'Suppression des objets (Vidage)
Set ObjMessage = Nothing
objSession.Logoff
Set objSession = Nothing
Set ObjOutl = Nothing
End Sub

Cela marche très bien cependant j'aimerai que dans le coprs du mail les données d'une ligne de mon tableau soit envoyé, j'ai un code VBA :

Private Sub btnEmail_Click()
numligne = InputBox("Saisir ligne")
msg = Cells(numligne, 3) & " " & Cells(numligne, 4)
MsgBox (msg)

End Sub

qui marche aussi mais je n'arrive pas à associer les deux car j'aimerai qu'une boite de dialogue s'ouvre me demande le numéro de ligne et que cela envoie le mail

merci d'avance


romlo47

 

[Modeste]

Re : Envoie

Bonjour romlo47 et bienvenue,

Ce qui suit fonctionne sous Excel & Outlook 2000. J'ai mis certaines lignes en commentaire, puisque pas nécessaires chez moi.

Public Sub btnEmail_Click()
numligne = InputBox("Saisir ligne")
msg = Cells(numligne, 3) & " " & Cells(numligne, 4)
'MsgBox (msg)
SendMail_Outlook ([B][COLOR="Red"]msg[/COLOR][/B])
End Sub

Sub SendMail_Outlook([B][COLOR="red"]txtAenvoyer[/COLOR][/B])
EmailSubject = InputBox("Indiquer le sujet de votre e-mail", "Sujet du message") 'Demande du sujet du message
emailmsg = InputBox("Indiquer votre message", "Message") 'Demande du contenu du message
emaildest = "romain.laubal@cdiscount.com"
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
'Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
'objSession.Logon 'Connection à Outlook
With ObjMessage
.To = emaildest
.CC = ""
.Subject = EmailSubject
.Body = emailmsg [B][COLOR="red"]& vbCr & vbCr & txtAenvoyer[/COLOR][/B]
'.Send
.display
End With
'Suppression des objets (Vidage)
Set ObjMessage = Nothing
'objSession.Logoff
'Set objSession = Nothing
Set ObjOutl = Nothing
End Sub

 

[romlo47]

Re : Envoie

merci beaucoup tu me rends un grand service, juste deux questions pour ameliorer la macro:

comment je peux ecrire le code pour envoyer de la collone 1 à la colonne 8 ?


comment puis-je mettre plusieurs destinataires?


merci encore

 

[Modeste]

Re : Envoie

re-bonjour,

comment je peux ecrire le code pour envoyer de la collone 1 à la colonne 8 ?

Public Sub btnEmail_Click()
numligne = InputBox("Saisir ligne")
[COLOR="Green"]For i = 1 To 8
    msg = msg & Cells(numligne, i) & " "
Next[/COLOR]
'MsgBox msg
SendMail_Outlook (msg)
End Sub

comment puis-je mettre plusieurs destinataires?

emaildest = "romain.laubal@cdiscount.com[COLOR="green"]; leci-devant@labas.fr; trucmuche@chezeux.com[/COLOR]"

... tout ça, si j'ai bien compris!