Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 14/05/2011, 16h35   #1
Candidat au titre de Membre du Club
 
Inscription : février 2007
Messages : 111
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 111
Points : 11
Points : 11
Par défaut Envoi mail de confirmation vba word

Bonjour

J'ai un document Word pour lequel j'ai un UserForm.
Lorsque je clique sur le bouton de commande Enregistrer sous, je souhaiterai qu'un mail de confirmation soit envoyer pour signaler qu'une personne à générer un document.

Par contre il serait bien que le code soit applicable à n'importe quelle messagerie. Celle configurée par défaut sur la machine, quelquelle soit.
Perso chez moi je suis sur Windows mail, et là mon besoin pour le taff notre Messagerie est IBM Lotus iNotes.

Pour cela, il faut pouvoir mettre plusieurs destinataires, un sujet pour le mail, et un texte prédéfini dans le corps du mail (avec si possible le nom de l'utilisateur qui a généré le document)(information déjà reprise dans une TextBox sur le UserForm)

Voici le code du bouton de commande Enregistrer sous :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub cmdEnregistrer_Click()
Dim oDlg As FileDialog
 
'fonction remplace
Remplace
 
'ouverture boite de dialogue Enregistrer sous ...
Set oDlg = Application.FileDialog(msoFileDialogSaveAs)
 
'sélection du dossier de destination
ChangeFileOpenDirectory "Y:\IMT\Exploitation\Station Centrales Telesurveillance\Repertoire temporaire\SCT2\Archives mails interventions+mails PMA\MATMUT Protection Juridique\Archives Fiches d'appel"
 
With oDlg
    .InitialFileName = lblDate & " " & lblheure & " " & txtnom
    .Show
End With
 
oDlg.Execute
Set oDlg = Nothing
 
'fonction fermeture automatique
Application.Quit savechanges:=wdDoNotSaveChanges
End Sub
En espérant avoir été clair sur mes besoins.
Merci d'avance.
vbword est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/05/2011, 19h28   #2
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 323
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 323
Points : 29 227
Points : 29 227
Salut,

Windows possède une bibliothèque permettant de générer et envoyer des mails.

CDO
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/05/2011, 19h34   #3
Candidat au titre de Membre du Club
 
Inscription : février 2007
Messages : 111
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 111
Points : 11
Points : 11
OK excuses-moi mais ça m'aide pas pour le coup ...
vbword est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/05/2011, 20h27   #4
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 323
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 323
Points : 29 227
Points : 29 227
Salut,

Je n'ai rien d'autre sous la main.
Une entrée dans la FAQ Access : http://access.developpez.com/faq/?pa...ailPieceAttach
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/05/2011, 09h34   #5
Candidat au titre de Membre du Club
 
Inscription : février 2007
Messages : 111
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 111
Points : 11
Points : 11
OK merci quand même

Pas simple d'adapter à mes besoins, je n'y arrive pas.
Par contre dans mes besoins, je n'ai pas besoin d'envoi avec pièces jointes, un simple mail d'information suffit.

Bon ce n'est qu'optionnel, donc au cas où si quelqu'un a ça, merci d'avance.
vbword est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/05/2011, 14h53   #6
Candidat au titre de Membre du Club
 
Inscription : février 2007
Messages : 111
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 111
Points : 11
Points : 11
quoi que ... si avec pièce jointe il y a, je suis preneur aussi ...
vbword est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/05/2011, 15h34   #7
FLB
Membre à l'essai
 
Inscription : juin 2003
Messages : 42
Détails du profil
Informations forums :
Inscription : juin 2003
Messages : 42
Points : 23
Points : 23
Envoyer un message via MSN à FLB
Tu trouveras ton bonheur ici
J'ai essayé la première solution et ça me donne un bon résultat (je reçois un mail avec en PJ le document créé). Je suis sous outlook mais apparemment c'est multi plateforme.
Flo
FLB est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/05/2011, 17h27   #8
Candidat au titre de Membre du Club
 
Inscription : février 2007
Messages : 111
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 111
Points : 11
Points : 11
DSL ... je n'arrive pas à le mettre en application sur mon document ...
vbword est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 13h29.


 
 
 
 
Partenaires

Hébergement Web