Lundi 20 Février 2017  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 2
Membres en ligne : 0

 Alphator 4 semaines
 ande 10 semaines
 Oliv 12 semaines
 cubitus 15 semaines
 callaghi 19 semaines
 JièL 20 semaines
 angel 25 semaines
 Quartzkyte 34 semaines
 grouilau 34 semaines
 miguy973 43 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:5 008
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:5 544
Total ce mois:84 155
Total visites:16 981 777
Moyenne/jour:5 619

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15305 [VBA] Enregistrer après envoi sur le disque
Vous souhaitez après l'envoi de votre mail enregistrer une copie au format .msg sur un disque physique.
Cela ne se gère par dans l'événement ItemSend, mail il faut attendre l'événement MAPIFolder.Items.ItemAdd sur le dossier où sera classé le mail pour effectuer ce traitement "enregistrer sous" .

voici un exemple à mettre dans ThisOutlookSession en utilisant le dossier par défaut Eléments envoyés:

Code :
Private Sub Application_Startup() 
'pour evenement itemadd
Dim NS As Outlook.NameSpace
Set NS = Application.GetNamespace("MAPI")
Set colSentItems = NS.GetDefaultFolder(olFolderSentMail).Items
Set NS = Nothing 'fin section
end sub  
Code :
Private Sub colSentItems_ItemAdd(ByVal Item As Object) 
'By Oliv ' janv 2008 pour Outlook 2003 feat. Sue Mosher
'http://www.outlookcode.com/codedetail.aspx?id=456
If Item.Class = olMail Then
Repertoire = "C:\"
Strname = Repertoire & "Email " & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Item.Subject, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160)
Enrg = MsgBox(Item.Subject & vbCr & "sous : " & vbCr & Strname & ".msg", vbYesNoCancel, "Enregistrer sur le disque ce mail ?")
If Enrg = vbYes Then
' 1ère façon sans boite de dialogue on connait l'endroit où enregistrer
'Repertoire = BrowseForFolder("Choisissez la destination", SDossier(5, 0)) & "\"
Item.SaveAs Strname & ".msg", OlSaveAsType.olMSG
ElseIf Enrg = vbNo Then
' 2ème méthode on ouvre une boite de dialogue
Item.Display
Dim objInsp
Dim colCB
Dim objCBB
On Error Resume Next
Set objInsp = item.GetInspector
Set colCB = objInsp.CommandBars
Set objCBB = colCB.FindControl(, 748) 'enregistrer sous
If Not objCBB Is Nothing Then
objCBB.Execute
End If
Item.Close olDiscard
End If
End If
End Sub    

L'apparition de la boîte de dialogue ne se fait qu'une fois le mail envoyé.
Voir aussi cet article : http://faq.outlook.fr/readarticle.php?article_id=80

Publié par Oliv le vendredi 04 janvier 2008 15:52 0 Commentaires 81836 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi Q15000 Macros - VBA
R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images Q15000 Macros - VBA
R15930 [VBA] Eliminer les doublons Q15000 Macros - VBA
Nuage de tags
R09130 Rechercher dans le carnet d'adresses, R99460 Vous hésitez encore ?, R15220 [VBA] Supprimer les Pièces jointes., R04070 Rendre visible le dossier temporaire des pièces jointes, R12010 Modifier l'affichage du calendrier, R09180 Classer différemment ses contacts existants (définitivement), R15030 [VBA] Supprimer le message SECURITY WARNING d'activation des Macros., R09050 Supprimer TOUS les noms suggérés lors de la saisie d'adresses (saisie auto ou saisie semi auto), R10100 Archivage manuel / Sauvegarde manuelle d’éléments vers un .PST, R13060 Répondre à une demande de tâche, R17005 Création d'éléments basique, R08040 Outlook ne mémorise pas le mot de passe des comptes, R08123 Impossible d'envoyer un message (mon FAI est Free), R01170 Remplacer la page d’accueil de « Outlook Aujourd’hui » (version 2002/2003), R20140 Configurer un compte GMAIL pour Outlook 2007

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]