Bonjour
Je souhaite ajouter une fonction envoi par mail sur un fichier excel créé avec des userforms à partir d'un bouton qui envoi le workbook excel en cours, n'enregistre pas, et ferme le tout.
J'ai le code suivant pour mon bouton "envoyer" :
Private Sub CommandButton1_Click()
With ActiveWorkbook
ThisWorkbook.SendMail Recipients:="test@messagerie.com", Subject:="toto", ReturnReceipt:=True
MsgBox "Votre réponse a été envoyée, merci de votre contribution!", vbOKOnly, "Quitter"
.Close SaveChanges:=False
End With
End Sub
Il fonctionne sur mes 2 ordi avec outlook comme mail par défaut et gmail.
Quelqu'un sait si cela marchera avec lotus notes ?
Je n'ai pas les moyens de tester et ce fichier sera à destination de personnes qui auront lotusnotes comme messagerie ... je n'ose pas leur envoyer sans avoir testé ....
Merci si quelqu'un peu m'aider ! J'ai mis un fichier test en attachment (avec une adresse mail bidon dans le destinataire biensur ..)
Claire