Envoyer un e-mail de Excel via outlook sans PJ

[marama12]

Bonjour A tous,

Apres avoir longuement cherche sur le forum tous les sujets qui traitent de la question je n'ai trouve aucun qui reponds a mes attentes.

J'ai une base de donnees sur Excel et je voudrais qu'a chaque fois qu'un partie du fichier est modifiee (les colonnes de 1 a 27) Un email soit envoye via outlook a un group d'utilisateurs les informant que des changements on ete fais.

Bref je veux qu'en cliquant sur un bouton une email tout fait apparit dans outlook et je n'airais qu'a cliquer sur envoyer.

Merci d'avance pour toute aide

PS (novice avec VBA)

[kiki29]

Salut, à consulter si non déjà fait http://excel.developpez.com/faq/?page=Messagerie
de plus tu auras sans doute à utiliser qqch du style ClickYes : http://excel.developpez.com/outils/?...aires#ClickYes

Il y a également via une recherche sur ce site http://www.google.fr/#sclient=psy-ab...iw=833&bih=566

[marama12]

Salut a tous,

J'ai trouve sur l'une des discussion un code que j'ai essaye.

Il marche mais le probleme c';est qu'il me joint le fichier excel (chose que je ne veux pas)

ci-dessous le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub Mail()
Dim return_receipt As Boolean
Dim strRecipients As String, strSubject As String
 
strRecipients = "Destinataire@mail.com"
strSubject = "Le sujet du message"
return_receipt = True
 
Application.Dialogs(xlDialogSendMail).show _
    strRecipients, _
    strSubject, _
    return_receipt
End Sub

Est ce que quelqu'un peut me dire comment faire pour se debarasser de la PJ.

Merci d'avance