Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

envoi mail via bouton

Le
apacheblanc
Bonjour,
Je suis sur Ex 2007, et ne m'y retrouve plus.
C'est pourquoi j'ai besoin de vos service.

Je cherche a envoyer un mail en appuyant juste sur un bouton "Valider envoi
mail"
Mon pb, je trouve plus VBA, ni les boutons ni rien quoi.
Quelqu'un peut il m'aider avant que je desinstalle 2007 SVP ?

Merci.
Lire les 12 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17593471
Bonsoir.
Bouton Office, Options Excel, Standard, coche "Afficher l'onglet Dédeloppeur
dans le ruban".
--
Cordialement.
Daniel
"apacheblanc" message de news:
Bonjour,
Je suis sur Ex 2007, et ne m'y retrouve plus.
C'est pourquoi j'ai besoin de vos service.

Je cherche a envoyer un mail en appuyant juste sur un bouton "Valider
envoi
mail"
Mon pb, je trouve plus VBA, ni les boutons ni rien quoi.
Quelqu'un peut il m'aider avant que je desinstalle 2007 SVP ?

Merci.


Répondre en citant
apacheblanc
Le #17593581
Merci...

Reste plus qu'a faire la commande pour envoyer un mail en clic sur bouton..



"Daniel.C" a écrit :

Bonsoir.
Bouton Office, Options Excel, Standard, coche "Afficher l'onglet Dédeloppeur
dans le ruban".
--
Cordialement.
Daniel
"apacheblanc" message de news:
> Bonjour,
> Je suis sur Ex 2007, et ne m'y retrouve plus.
> C'est pourquoi j'ai besoin de vos service.
>
> Je cherche a envoyer un mail en appuyant juste sur un bouton "Valider
> envoi
> mail"
> Mon pb, je trouve plus VBA, ni les boutons ni rien quoi.
> Quelqu'un peut il m'aider avant que je desinstalle 2007 SVP ?
>
> Merci.





Répondre en citant
Daniel.C
Le #17593891
Je pensais que tu l'avais :

Sub MailSimple()
Set OlApp = CreateObject("Outlook.application")
Set m = OlApp.CreateItem(olMailItem)
With m
.Subject = "Subject"
.Body = "Body"
.Recipients.Add ""
.Send
End With
End Sub

Daniel
"apacheblanc" message de news:
Merci...

Reste plus qu'a faire la commande pour envoyer un mail en clic sur
bouton..



"Daniel.C" a écrit :

Bonsoir.
Bouton Office, Options Excel, Standard, coche "Afficher l'onglet
Dédeloppeur
dans le ruban".
--
Cordialement.
Daniel
"apacheblanc" message de news:
> Bonjour,
> Je suis sur Ex 2007, et ne m'y retrouve plus.
> C'est pourquoi j'ai besoin de vos service.
>
> Je cherche a envoyer un mail en appuyant juste sur un bouton "Valider
> envoi
> mail"
> Mon pb, je trouve plus VBA, ni les boutons ni rien quoi.
> Quelqu'un peut il m'aider avant que je desinstalle 2007 SVP ?
>
> Merci.







Répondre en citant
Sunburn
Le #17595821
Bonjour Daniel,
je cherche aussi un système d'envoi de mail, mais je voudrais laisser le
choix du destinataire, en Objet = la cellule C23 de la feuille "DA", et
laisser le choix du corps du texte, est-ce possible ?
Merci.
YANN

"Daniel.C" a écrit :

Je pensais que tu l'avais :

Sub MailSimple()
Set OlApp = CreateObject("Outlook.application")
Set m = OlApp.CreateItem(olMailItem)
With m
.Subject = "Subject"
.Body = "Body"
.Recipients.Add ""
.Send
End With
End Sub

Daniel
"apacheblanc" message de news:
> Merci...
>
> Reste plus qu'a faire la commande pour envoyer un mail en clic sur
> bouton..
>
>
>
> "Daniel.C" a écrit :
>
>> Bonsoir.
>> Bouton Office, Options Excel, Standard, coche "Afficher l'onglet
>> Dédeloppeur
>> dans le ruban".
>> --
>> Cordialement.
>> Daniel
>> "apacheblanc" >> message de news:
>> > Bonjour,
>> > Je suis sur Ex 2007, et ne m'y retrouve plus.
>> > C'est pourquoi j'ai besoin de vos service.
>> >
>> > Je cherche a envoyer un mail en appuyant juste sur un bouton "Valider
>> > envoi
>> > mail"
>> > Mon pb, je trouve plus VBA, ni les boutons ni rien quoi.
>> > Quelqu'un peut il m'aider avant que je desinstalle 2007 SVP ?
>> >
>> > Merci.
>>
>>
>>





Répondre en citant
Daniel.C
Le #17596781
Bonjour.
Essaie :
Sub MailSimple()
Dim Desti As String, Corps As String
Set OlApp = CreateObject("Outlook.application")
Set m = OlApp.CreateItem(olMailItem)
Do Until Desti <> ""
Desti = InputBox("Entrez le nom du destinataire")
Loop
Do Until Corps <> ""
Corps = InputBox("Entrez le corps du message")
Loop
With m
.Subject = Sheets("DA").[C23]
.Body = Corps
.Recipients.Add Desti
'.display
.Send
End With
End Sub
J'ai fait entrer le corps du message dans une InputBox. Ce n'est pas
terrible. Si tu veux, je peux le faire entrer dans une TextBox. On peut
également utiliser ce qui a été entré dans une cellule.
Note. Tu peux visualiser le message en mettant la ligne ".Send" en
commentaire et en décommentant la ligne ".Display"
Daniel

Sunburn a écrit :
Bonjour Daniel,
je cherche aussi un système d'envoi de mail, mais je voudrais laisser le
choix du destinataire, en Objet = la cellule C23 de la feuille "DA", et
laisser le choix du corps du texte, est-ce possible ?
Merci.
YANN

"Daniel.C" a écrit :

Je pensais que tu l'avais :

Sub MailSimple()
Set OlApp = CreateObject("Outlook.application")
Set m = OlApp.CreateItem(olMailItem)
With m
.Subject = "Subject"
.Body = "Body"
.Recipients.Add ""
.Send
End With
End Sub

Daniel
"apacheblanc" message de news:
Merci...

Reste plus qu'a faire la commande pour envoyer un mail en clic sur
bouton..



"Daniel.C" a écrit :

Bonsoir.
Bouton Office, Options Excel, Standard, coche "Afficher l'onglet
Dédeloppeur
dans le ruban".
--
Cordialement.
Daniel
"apacheblanc" message de news:
Bonjour,
Je suis sur Ex 2007, et ne m'y retrouve plus.
C'est pourquoi j'ai besoin de vos service.

Je cherche a envoyer un mail en appuyant juste sur un bouton "Valider
envoi
mail"
Mon pb, je trouve plus VBA, ni les boutons ni rien quoi.
Quelqu'un peut il m'aider avant que je desinstalle 2007 SVP ?

Merci.














Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme