[WD-2007] Macro envoie de mail verification

[isarian]

Voilà je souhaiterais faire un bouton d'envoie de mail avec verification. Pour l'instant il fait juste envoie de mail et cela fonctionne bien.

Mais sans verification. Et j'aimerais donc arriver à faire une vérification dans un premier temps sur le champs nom et prenom qui soit non nul.

Je code donc avec un if then. mais ca, cela ne fonctionne pas.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
 
    With OutMail
        .To = "blabla@bal.com"
        .CC = ""
        .BCC = ""
        .Subject = "test " + Environ("USERNAME")
        .Body = "TEST VERIF"
        .Attachments.Add ActiveDocument.FullName
         'or use .Display
    End With
 
    If (ActiveDocument.FormFields(nom).Result = "test") Then OutMail.Send
 
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub

Par contre comme champ j'utilise "selecteur de date", un menu de roulant et autres champs, je ne sais pas si cela a une importance?

Merci d'avance

[Heureux-oli]

Salut,

La confirmation de réception n'est pas liée à l'émetteur, mais au système qui est utilisé par le déstinataire.

Si tu utilises un compte Exchange pour l'envoi de tes mail, c'est une option que tu peux activer pour tous les mails ou pour chaque mail, mais elle n'est réellement utilisable que si le récepteur utilise un service capable de valider cette demande.

[isarian]

Pardon je me suis mal fait comprendre, je ne veux pas de vérification sur l'envoie à proprement parler du mail. Mais que lorsque l'utilisateur clique sur le bouton envoie qui se trouve dans mon document word, la macro vérifier certain champs et si seulement le champs est bon il envoie le mail.

J'espère que c'est plus clair ainsi.

Cordialement

[Heureux-oli]

Salut,

Il te suffit de vérifier le contenu des champs.
http://heureuxoli.developpez.com/off...d/formulaires/

[isarian]

Oui j'ai lut le tutorial. Je l'ai même toujours à coté de moi quand je travaille sur la macro.

Mais

il y a des explications à partir des champs textes hors j'avais moi, utilisé un autre types de champs et c'est la raison pour laquelle cela ne fonctionnait pas.

[Heureux-oli]

Salut,

Quel type de champ ?

[isarian]

Je le mets en fichier joints, dans word c'est text , et l'aide dit "insère un controle de contenu de texte brut"

Mais malheureusement je ne vois pas trop la différence entre le type de champs dans le tutorial et celui là.

[Heureux-oli]

Salut,

Ce n'est en rien un champ de formulaire, c'est un contrôle de contenu (ContentControl), c'est donc tout à fait normal que ça ne fonctionne pas et que ce n'est pas utilsé pour le tuto.

Cette fonctionnalité n'est disponible que depuis la version 2007, alors que les champs de formulaires sont aussi présents dans la version 97.

[isarian]

Je viens de testé le code. Il marche nickel en word 2007.

PAR CONTRE leger petit détail que je n'ai pas du tout pensé c'est que les utilisateurs ne sont pas en word 2007 mais en word 2003.

Comment je peux faire pour rendre cela compatible ?

Merci d'avance

[Heureux-oli]

Salut,

Ne pas utiliser de controle de contenu.

Il y a moyen de vérifier si le contenu est compatible au départ du bouton office.