Envoyer un email avec un bouton

Z

zanir

XLDnaute Nouveau

• 10 Juin 2010

• #2

Re : Envoyer un email avec un bouton

j'ai oublié de préciser je voudrais que l'envoi du mail utilise outlook et non outlook express voila merci

 

Vote positif 0 Vote négatif

Z

zanir

XLDnaute Nouveau

• 10 Juin 2010

• #3

Re : Envoyer un email avec un bouton

a oui et en même temps j'ai un petit problème avec mon excel j'ai verrouillé mes cellules avec un mot de passe j'avais trouvé un petit code qui quand je referme mon fichier les cellules se "reverrouillés" automatiquement la plupart du temps sa marche mais des fois elles sont pas verrouillés pourquoi? merci

 

Vote positif 0 Vote négatif

Z

zanir

XLDnaute Nouveau

• 11 Juin 2010

• #4

Re : Envoyer un email avec un bouton

personne peut m'aider 🙁

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 11 Juin 2010

• #5

Re : Envoyer un email avec un bouton

Bonjour à tous,
Bonjour zanir

Inspires toi du travail de JNP dans ce fil.
La macro post #14# te permet d'envoyer le même mail à différents destinataires.

https://www.excel-downloads.com/threads/macro-pour-coller-adresses-mail-dans-outlook.127369/

Klin89

 

Vote positif 0 Vote négatif

Z

zanir

XLDnaute Nouveau

• 11 Juin 2010

• #6

Re : Envoyer un email avec un bouton

Merci pour ta réponse mais quand je disais plusieurs adresses en faite c'est bien plusieurs adresses mais ce seront toujours les mêmes y a pas un moyen plus simple ? parce que le code je le comprend pas du tout :$.
merci

 

Vote positif 0 Vote négatif

Z

zanir

XLDnaute Nouveau

• 11 Juin 2010

• #7

Re : Envoyer un email avec un bouton

Mais dans le post de JNP le code débute avec Sub test () mais il doit pas commencer par Private Sub CommandButton1_Click() pour que ce soit mon bouton qui active le code? desole je suis vraiment un novice :$

 

Vote positif 0 Vote négatif

P

Pepitoww

XLDnaute Nouveau

• 11 Juin 2010

• #8

Re : Envoyer un email avec un bouton

Bonjour zanir,
donc voilà à quoi devrait ressembler le code en "gros"

Code:

Private Sub BoutonEnvoyerMail_Click()
   Dim MailApp As New Outlook.Application
   Dim NewMail As MailItem
   Dim Dest As String 'Destinataire du mail
   
   Set MailApp = New Outlook.Application
   Set NewMail = MailApp.CreateItem(NewMailItem)

   With NewMail
        Dest = "adresse1@voila.fr" + ";" + "adresse2@voila.fr" 'Ainsi de suite
        .To = Dest 
        .Subject = "Bonjour ..." 'Sujet du mail
        .Body = "Blablabla" 'Message
        .Importance = olImportanceNormal 'Importance du mail normal
        .ReadReceiptRequested = True 'Accusé de lecture
        .Display 'Visualise le mail avant envoie (ou Send qui envoie directement le mail sans visualisation) soit l'un soit l'autre jamais les 2
   End With
End Sub

Si tes adresses se situent dans une cellule à toi d'adapter le code (juste à rechercher les cellules et entrer leurs valeurs dans la variable Dest...)

 

Vote positif 0 Vote négatif

Z

zanir

XLDnaute Nouveau

• 11 Juin 2010

• #9

Re : Envoyer un email avec un bouton

il y a une erreur sa me marque

Erreur de compilation:
Type défini par l'utilisateur non défini 🙁

je vais donner le fichier si sa peut vous aider :$

 

Pièces jointes

• tableau matériau.xls

  48.5 KB · Affichages: 144

Vote positif 0 Vote négatif

P

Pepitoww

XLDnaute Nouveau

• 11 Juin 2010

• #10

Re : Envoyer un email avec un bouton

Effectivement, le code est juste mais j'ai oublié de préciser qu'il fallait activer l'objet "Outlook" dans Excel.
Pour celà, dans Excel, faites Outils-Macro-Visual Basic Editor
Une fois dans l'éditeur VBA faire Outils-Références puis en cherchant dans les M cocher la case Microsoft Outlook X.X Object Library puis OK
(X.X correspond à la version d'Outlook, en fonction de votre version d'Excel)

Cordialement

 

Vote positif 0 Vote négatif

Z

zanir

XLDnaute Nouveau

• 11 Juin 2010

• #11

Re : Envoyer un email avec un bouton

Merci beaucoup sa marche merci 😀
et c'est possible de l'envoyer automatiquement sans cliquer sur le bouton envoyer de Outlook?
:$

 

Vote positif 0 Vote négatif

P

Pepitoww

XLDnaute Nouveau

• 11 Juin 2010

• #12

Re : Envoyer un email avec un bouton

Oui tout à fait, en utilisant .Send à la place de .Display mais dans ce cas il faut être sur que le sujet et le message soient bien définis (sinon envoie mail vide).

 

Vote positif 0 Vote négatif

Z

zanir

XLDnaute Nouveau

• 11 Juin 2010

• #13

Re : Envoyer un email avec un bouton

Merci sa marche très bien merci beaucoup 😀

 

Vote positif 0 Vote négatif