Envoyer un email avec un bouton

[zanir]

bonjour tout le monde voila je suis un novice en VBA.
J'aimerais envoyer un mail en cliquant sur un bouton dont il y aurai plusieurs adresses avec un corps prédéfini ou il y aurai la date et l'heure de l'envoi du mail.pouvez vous m'aidez svp je penses que sa doit être un code simple mais je bute depuis un petit moment la dessus merci d'avance pour vos réponses. 😀

 

[zanir]

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

 

[zanir]

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

 

[zanir]

Re : Envoyer un email avec un bouton

personne peut m'aider 🙁

 

[klin89]

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

 

[zanir]

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

 

[zanir]

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 :$

 

[Pepitoww]

Re : Envoyer un email avec un bouton

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

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...)

 

[zanir]

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 :$

 

[Pepitoww]

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

 

[zanir]

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?
:$

 

[Pepitoww]

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).

 

[zanir]

Re : Envoyer un email avec un bouton

Merci sa marche très bien merci beaucoup 😀