Excel - envoi mail

[FFORTERRE]

Bonjour à tous,

Je cherche à obtenir le résultat suivant; merci pour votre aide à me guider.

Dans une feuille Excel, je souhaiterais placer un bouton qui provoquerait l'envoi par mail, à une (ou plusieurs adresses) fixes et détermniées à l'avance, d'un message pré-établi.

du genre "je vous informe que des modifcations ont été réalisées sur cette feuille ..."

Je pense qu'avec une macro et un lien avec outlook cela doit être possible.

Faut -il utiliser la commande mailto, et comment


Merci pour votre aide,

F.F

 

[juju]

Hello,

Dans l'exemple adresse en A1 et A2. Ensuite tu affectes la macro ci-dessous à un bouton :

Sub EnvoiMail_Outlook()
'Creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
'Caractéristiques de l'e-mail
With olmail
.To = Range("Feuil1!A1").Value & ";" & Range("Feuil1!A2").Value
'Affiche le nom comme objet du message
.Subject = ActiveWorkbook.FullName
.Body = "je vous informe que des modifcations ont été réalisées sur cette feuille ..."
'Pièces jointes si il y a lieu
.Attachments.Add "C:\PGI\Résultats.xls"
'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
.Display
End With
End Sub

 

[tracor]

salut tout le monde

en trainant deci dela j'ai remarqué ce fil qui me sembre très très intéressant

cependant en le testant j'ai une erreur de la macro
elle ne reconnait pas
New Outlook.Application
MailItem
j'utilise microsoft outlook 2003 et non outlook express

le problème vient peut être de la

en tout cas
désolé de m'introduire sur le fil de F.F.

merci d'avance de vous pencher sur le problème d'un squatteur

tracor

 

[tracor]

petite info supplémentaire

j'utilise un bouton actuellement pour envoyer un e-mail
depuis excell via microsoft outlook

sub envoi_mail()
Application.Dialogs(xlDialogSendMail).Show
end sub

cette fonction m'ouvre la fenêtre du message
je n'ai plus qu'à y glisser le ou les noms destinataires
l'objet et la pièce jointe s'y colle tous seuls
et je n'ai plus qu'à taper le corps du message et à envoyer

si quelqu'un a mieux
n'hésitez pas

tracor

 

[juju]

Re,

Je ne sais pas pour Outlookexpress désolé.

Si ça ne marche pas avec Outlook, dans vba faire outils \ Préférences et vérifier que soit cocher microsoft outlook...

By

Ju

 

[tracor]

salut juju

cela marche à merveille

un grand merci

petite question
si le corps du message contient plus de ligne
par exemple :

bonjour
je vous informe que des modifcations ont été réalisées sur cette feuille ...
merci

tracor

comment procéder
j'ai tente
.body1="bonjour
.body2="je vous...

mais sans succés

merci d'avance

tracor

 

[juju]

Hello,

En fait il faut insérer un retour à la ligne : char13
.Body = "TestLigne1" & chr(13) & "TestLigne2"

Dans ton exemple :
.Body = "Bonjour," & chr(13) & "Je vous informe que des modifcations ont été réalisées sur cette feuille ..." & chr(13) & "Merci"

Si tu veux mettre une ligne vide du style :
Bonjour,

Je vous informe...

alors il faut mettre deux fois char(13) :
.Body = "Bonjour," & chr(13) & chr(13) & "Je vous informe que..."

Voili, voilou
Bye
Ju

 

[tracor]

un grand super merci

@+

tracor

 

[robert]

bonjour à vous tous,
et mes excuses si j'apparais comme nouveau ici.
Mon problème est identique à l'objet du post : je recherche une macro qui, affectée à un bouton, me permettrait d'envoyer, via Outlock, la feuille à 2 destinaires choisis.
J'ai essayé la réponse de Juju mais j'ai aussi un message d'erreur suivant: "erreur de compilation - type défini par l'utilisateur non défini"
J'ai XL 2000 et outlock 2000,
pourriez-vous m'aider car après google, les NG, les trucs et astuces divers, les FAQ... je ne sais plus où chercher.
je vous remercie par avance de votre bienveillance

 

[robert]

bonjour à vous tous,
et mes excuses si j'apparais comme nouveau ici.
Mon problème est identique à l'objet du post : je recherche une macro qui, affectée à un bouton, me permettrait d'envoyer, via Outlock, la feuille à 2 destinaires choisis.
J'ai essayé la réponse de Juju mais j'ai aussi un message d'erreur suivant: "erreur de compilation - type défini par l'utilisateur non défini"
J'ai XL 2000 et outlock 2000,
pourriez-vous m'aider car après google, les NG, les trucs et astuces divers, les FAQ... je ne sais plus où chercher.
je vous remercie par avance de votre bienveillance

 

[tracor]

salut robert et le phorum

pourrais tu mettre ton fichier ou ta macro sur le post

tracor

 

[juju]

Hello,

tt pareil que Trac... ;-)

met ton fichier et on se fera un plaisir de t'aider...

@ +

Ju

 

[robert]

eh ben tout d'abord bonjour et un grand merci à vous,
voici donc le fichier en question,
j'ai bien coché dans "référence" , microsoft Outlock
mais bon... suis pas doué, que voulez-vous!!!!
alors si vous avez envie d'y jeter un p'tit coup d'oeil
en attendant je vous souhaite une bonne journée.. et un merci aussi sincère qu'amical

 

[tracor]

salut robert et tout le monde

voici le nom du fichier à coché dans "références"
microsoft outlook 11.0 object library
cela fonctionne correctement

j'ai également modifié le nom de la feuille de référence
saisie!aa1 et non feuil1!aa1

attention au chemin
il faudra également le modifier

les adresses étaient érronées
il y avait des virgules au lieu de point entre les noms

en espérant t'avoir aidé


tracor

 

[robert]

Que dire sinon un grand MERCI.
Ce qui est très très frustrant quand on est aidé comme ça, c'est de ne pouvoir aider à son tour.
Je suis trop nul avec Excel pour dépanner quelqu'un; je pourrai à la rigueur aider en bricolage, en cuisine !! mais c'est peu.
Alors, très sincèrement merci à vous.