olPublicFoldersAllPublicFolders di Const = 18
olkApp fioco, olkSes, olkFld, olkItm, adoCon
Oscurare la a, la b, la c, d
Regolare il adoCon = CreateObject (“ADODB.Connection„)
“Cambiare il nome di schedario ed il percorso della base di dati sulla linea seguente„
adoCon.Open “Provider=Microsoft.ACE.OLEDB.12.0; Dati Source= C:\myFolder\myAccess2007file.accdb; Persiste la sicurezza Info=False; „
Regolare il olkApp = CreateObject (“Outlook.Application„)
Regolare i olkSes = olkApp.GetNamespace (“MAPI„)
“Cambiare il nome di profilo sulla linea seguente come stata necessaria„
olkSes.Logon “prospettiva„
“Cambiare il mio dispositivo di piegatura al nome del vostro dispositivo di piegatura sulla linea seguente„
Regolare il olkFld = olkSes.GetDefaultFolder (olPublicFoldersAllPublicFolders). Dispositivi di piegatura (“il mio dispositivo di piegatura„)
Per ogni olkItm in olkFld.Items
Con olkItm
“Cambiare i campi sulle 4 linee seguenti. Aggiungere i campi supplementari come stati necessari.„
a =. Oggetto
b = .ReceivedTime
c = .SenderName
“Cambiare il nome proprietà sulla linea seguente„
d = .UserProperties.Item (“il vostro nome del puntello„). Valore
Estremità con
“Pubblicare l'ordine di SQL come stato necessario„
INSERTO di olkCon.Execute “NEI VALORI di SomeTableName (FieldName1, FieldName2, FieldName3, FieldName4) (“„ & a & “„, ““& b &„„, ““& c &„„, ““& d &„ ") “
Dopo
adoCon.Close
Regolare il adoCon = niente
Regolare il olkFld = niente
olkSes.Logoff
Regolare i olkSes = niente
Regolare il olkApp = niente
il msgbox “ha rifinito!„
|