Samedi 30 Mai 2020  
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

 JièL 5 semaines
 manucau 7 semaines
 Manu-pb 8 semaines
 Oliv 13 semaines
 pirobert 54 semaines
 jcgdisle 79 semaines
 EMERGENCY 100 semaines
 beaulieu 111 semaines
 callaghi 115 semaines
 Charlie76 121 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:2 256
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:2 896
Total ce mois:93 337
Total visites:23 639 544
Moyenne/jour:5 606

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 87405 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
R01160 Configurer un compte « POP before SMTP » (exemple : Laposte.net), R08123 Impossible d'envoyer un message (mon FAI est Free), R10020 Sauvegarder les paramètres et fichiers .PST d'Outlook 2002 (Windows XP seulement), R01150 Afficher un compte Hotmail avec Outlook 2000 et suivant, R15350 [VBA] Choix du compte selon les destinataires, R13020 Créer une tâche rapidement, R08200 Cette opération a été annulée à cause de restrictions en vigueur sur cet ordinateur. Contactez votre administrateur système., R01180 Remplacer la page d’accueil « Outlook Aujourd’hui » (toutes versions), R06005 Emplacements des différents fichiers d'Outlook, R07010 Créer plusieurs « profil » ou comment avoir plusieurs comptes séparés, R06027 Alerter quand la taille du .PST est trop importante, R99230 Sourire, R12090 Ajouter les jours fériés Français jusqu'en 2012 pour Outlook 2002/2003, R12020 Naviguer dans le calendrier, R06020 Réduire la taille du .PST

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é
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]