olPublicFoldersAllPublicFolders de Const = 18
Faible olkApp, olkSes, olkFld, olkItm, adoCon
Obscurcir a, b, c, d
Placer l'adoCon = le CreateObject (« ADODB.Connection »)
« Changer le nom de fichier et le chemin de base de données sur la prochaine ligne »
adoCon.Open « Provider=Microsoft.ACE.OLEDB.12.0 ; Point d'émission = C:\myFolder\myAccess2007file.accdb ; Persistent la sécurité Info=False ; »
Placer l'olkApp = le CreateObject (« Outlook.Application »)
Placer les olkSes = l'olkApp.GetNamespace (« MAPI »)
« Changer le nom de profil sur la prochaine ligne comme nécessaire »
olkSes.Logon « perspectives »
« Changer ma chemise en nom de votre chemise sur la prochaine ligne »
Placer l'olkFld = l'olkSes.GetDefaultFolder (olPublicFoldersAllPublicFolders). Chemises (« ma chemise »)
Pour chaque olkItm dans olkFld.Items
Avec l'olkItm
« Changer les champs sur les 4 prochaines lignes. Ajouter les champs additionnels comme nécessaires. »
a =. Sujet
b = .ReceivedTime
c = .SenderName
« Changer le nom de propriété sur la prochaine ligne »
d = .UserProperties.Item (« votre nom d'appui vertical »). Valeur
Extrémité avec
« Éditer la commande SQL Comme nécessaire »
INSERTION d'olkCon.Execute « DANS DES VALEURS de SomeTableName (FieldName1, FieldName2, FieldName3, FieldName4) (« » et a et « », « « et b et » », « « et c et » », « « et d et » ") «
Après
adoCon.Close
Placer l'adoCon = rien
Placer l'olkFld = rien
olkSes.Logoff
Placer les olkSes = rien
Placer l'olkApp = rien
le msgbox « a fini ! »
|