Mercredi 29 Mars 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 : 3
Membres en ligne : 0

 callaghi 1 jour
 Alphator 9 semaines
 ande 15 semaines
 Oliv 17 semaines
 cubitus 20 semaines
 JièL 25 semaines
 angel 31 semaines
 Quartzkyte 39 semaines
 grouilau 40 semaines
 miguy973 49 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 922
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:6 355
Total ce mois:151 088
Total visites:17 271 585
Moyenne/jour:5 648

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 82109 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
R12060 Répondre à une invitation, R15370 [VBA] Envoyer ou renvoyer un ou plusieurs mails, R09020 Comment fonctionne le complément automatique de la saisie des adresses (saisie auto ou saisie semi auto), R12090 Ajouter les jours fériés Français jusqu'en 2012 pour Outlook 2002/2003, R01190 Personnaliser la page d’accueil « Outlook Aujourd’hui », R09070 Ajouter le carnet d'adresses personnel (.PAB), R03090 Rechercher les messages d'un même auteur, R01140 Utiliser un compte Hotmail ou MSN avec Outlook 2002 ou 2003 (Obsolète), R10050 Sauvegarder ses paramètres de compte messagerie, R06060 Créer un dossier (sous dossier) dans le .PST, R01090 Demander un accusé de réception / lecture, R02020 Envoyer / recevoir automatiquement, R10010 Sauvegarder TOUT Office 2003, R00130 Fonctionnalités abandonnées et/ou modifiées dans Outlook 2007, R08150 Dossier personnel (racine) qui apparait en double

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