natorp
XLDnaute Accro
Bjr à tous et toutes
J'ai récupéré ce code sur le forum et j'ai besoin d'aide :
Private Sub OK_Click()
Dim email As String: Dim message As String: Dim Sujet As String: Dim Envoyer As String
email = "gerard.lequette@saint-etienne.fr"
Sujet = "Pré-Réservation de Salles"
message = "Salut GG" & vbCrLf & TextBox1
Envoyer = "mailto:" & email & "?subject=" & Sujet & "&body=" & message
ActiveWorkbook.FollowHyperlink Envoyer
TextBox1 = vbNullString
MsgBox "Message envoyé"
Unload UserForm6
End Sub
Quand je le lance j'ai un message d'erreur : "impossible d'effectuer cette opération car le client de courrier électronique par défaut n'est pas installé correctement", Lotus.... s'ouvre bien avec la valeur du textbox1, mais j'ai également une page Web avec mailto..... dans la barre d'adresse qui affiche : "impossible d'afficher la page", et quand je clique sur "OK" du message d'erreur, une 2ème fenêtre Lotus,identique à la première' s'ouvre...??
Je suis sur un réseau d'entreprise qui utilise Lotus Domino Web Access et j'ai besoin que depuis un userform avec une textbox les utilisateurs puissent envoyer leur demande de réservation de salle en remplissant la textbox1 et en cliquant sur le bouton "Ok"
J'espère avoit été assez clair....
Cordialement, merci de votre attention
Gérard
J'ai récupéré ce code sur le forum et j'ai besoin d'aide :
Private Sub OK_Click()
Dim email As String: Dim message As String: Dim Sujet As String: Dim Envoyer As String
email = "gerard.lequette@saint-etienne.fr"
Sujet = "Pré-Réservation de Salles"
message = "Salut GG" & vbCrLf & TextBox1
Envoyer = "mailto:" & email & "?subject=" & Sujet & "&body=" & message
ActiveWorkbook.FollowHyperlink Envoyer
TextBox1 = vbNullString
MsgBox "Message envoyé"
Unload UserForm6
End Sub
Quand je le lance j'ai un message d'erreur : "impossible d'effectuer cette opération car le client de courrier électronique par défaut n'est pas installé correctement", Lotus.... s'ouvre bien avec la valeur du textbox1, mais j'ai également une page Web avec mailto..... dans la barre d'adresse qui affiche : "impossible d'afficher la page", et quand je clique sur "OK" du message d'erreur, une 2ème fenêtre Lotus,identique à la première' s'ouvre...??
Je suis sur un réseau d'entreprise qui utilise Lotus Domino Web Access et j'ai besoin que depuis un userform avec une textbox les utilisateurs puissent envoyer leur demande de réservation de salle en remplissant la textbox1 et en cliquant sur le bouton "Ok"
J'espère avoit été assez clair....
Cordialement, merci de votre attention
Gérard
