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