Samedi 31 Octobre 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

 jplus 3 semaines
 manucau 4 semaines
 JièL 27 semaines
 Manu-pb 30 semaines
 Oliv 35 semaines
 pirobert 76 semaines
 jcgdisle 101 semaines
 EMERGENCY 122 semaines
 beaulieu 133 semaines
 callaghi 137 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:1 573
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:2 626
Total ce mois:100 496
Total visites:24 236 587
Moyenne/jour:5 546

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 87892 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
R05045 Imprimer la partie utile d'un message (Outlook 2007 et autres), R99460 Vous hésitez encore ?, R10060 Sauvegarder le carnet d'adresses personnel (.PAB), R18030 Les noms des dossiers s'affichent en Anglais, R11090 Récupérer des messages effacés, R20040 Configurer un compte GMAIL pour Outlook 2002/2003, R17040 Envoyer un e-mail depuis un formulaire de rendez-vous, R11090 Récupérer des messages effacés, R15250 [VBA] ImagesDansMessage, R99050 Impression d'écran, R07025 Lancer Outlook plusieurs fois avec plusieurs profils, R15060 [VBA] Attribuer un raccourci clavier à une macro., R03110 Déplacer les messages lors de l'envoi, R06020 Réduire la taille du .PST, R15450 [VBA] Supprimer automatiquement les éléments de + de x jours dans un dossier.

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 [/\]