Problème envoi automatisé
Bonjour,
J'ai réussi à mettre en place une macro pour envoyer automatiquement le formulaire qui envois aux déstinataires selon la checkBox cochée.
Seulement, je n'arrive pas à vérrouiller le commandboutton si aucune checkbox n'est cochée...
D'autre part, je suis obligé d'enregistrer le formulaire avant l'envoi sinon il arrive vierge
Ne peut on pas faire en sorte de l'envoyer rempli sans l'enrgistrer avant??
Merci beaucoup!!
Ci-joint la macro pour l'envoi
Private Sub CommandButton1_Click()
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
If CheckBox1 = True Then monItem.To = " "
If CheckBox2 = True Then monItem.To = " "
If CheckBox3 = True Then monItem.To = " "
If CheckBox4 = True Then monItem.To = " "
If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False And CheckBox4 = False Then CommandButton1.LockedmonItem.Subject = "Demande d'intervention"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver ci-joint une demande d'intervention"
Set mondoc = monItem.Attachments
mondoc.Add ActiveDocument.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub
JeremyW a écrit :Bonjour,
J'ai réussi à mettre en place une macro pour envoyer automatiquement le formulaire qui envois aux déstinataires selon la checkBox cochée.
Seulement, je n'arrive pas à vérrouiller le commandboutton si aucune checkbox n'est cochée...
D'autre part, je suis obligé d'enregistrer le formulaire avant l'envoi sinon il arrive vierge
Ne peut on pas faire en sorte de l'envoyer rempli sans l'enrgistrer avant??
Merci beaucoup!!
Ci-joint la macro pour l'envoi
Private Sub CommandButton1_Click()
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
If CheckBox1 = True Then monItem.To = " "
If CheckBox2 = True Then monItem.To = " "
If CheckBox3 = True Then monItem.To = " "
If CheckBox4 = True Then monItem.To = " "
If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False And CheckBox4 = False Then CommandButton1.LockedmonItem.Subject = "Demande d'intervention"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver ci-joint une demande d'intervention"
Set mondoc = monItem.Attachments
mondoc.Add ActiveDocument.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub
bonsoir,
essaie d'utiliser la propriété enabled
CommandButton1.enabled=falsepour réactiver
CommandButton1.enabled=truece code ne doit pas se trouver dans command_button1.click
la séquence devrait être la suivante
procédure form.initialize
remise a zéro des checkbox
desactiver le bouton
procédures checkbox 1 à 4
dès qu'une checkbox est activée, activer le bouton
procédure commandbutton1_click
envoyer le message
remise a zéro des checkbox
desactiver le bouton
Merci, je vais essayer ça demain.
Par contre, je suis pas sur de savoir placer correctement les deux codes proposés.
Une petite aide serait encore la bienvenue.
Merci bcp
bonsoir,
le mieux serait de joindre ton fichier avec les macros.
Merci pour l'aide, j'ai trouvé une solution