olPublicFoldersAllPublicFolders de Const = 18
olkApp não ofuscante, olkSes, olkFld, olkItm, adoCon
Escurecer a, b, c, d
Ajustar o adoCon = o CreateObject (“ADODB.Connection”)
“Mudar o nome de arquivo e o trajeto da base de dados na linha seguinte”
adoCon.Open “Provider=Microsoft.ACE.OLEDB.12.0; Origem de dados = C:\myFolder\myAccess2007file.accdb; Persiste a segurança Info=False; ”
Ajustar o olkApp = o CreateObject (“Outlook.Application”)
Ajustar os olkSes = o olkApp.GetNamespace (“MAPI”)
“Mudar o nome do perfil na linha seguinte como necessário”
olkSes.Logon “probabilidade”
“Mudar meu dobrador ao nome de seu dobrador na linha seguinte”
Ajustar o olkFld = o olkSes.GetDefaultFolder (olPublicFoldersAllPublicFolders). Dobradores (“meu dobrador”)
Para cada olkItm em olkFld.Items
Com olkItm
“Mudar os campos nas 4 linhas seguintes. Adicionar campos adicionais como necessários.”
a =. Assunto
b = .ReceivedTime
c = .SenderName
“Mudar o nome de propriedade na linha seguinte”
d = .UserProperties.Item (“seu nome do suporte”). Valor
Extremidade com
“Editar o comando de SQL como necessário”
INSERÇÃO de olkCon.Execute “EM VALORES de SomeTableName (FieldName1, FieldName2, FieldName3, FieldName4) (“” & a & “”, ““& b &””, ““& c &””, ““& d &” ") “
Em seguida
adoCon.Close
Ajustar o adoCon = nada
Ajustar o olkFld = nada
olkSes.Logoff
Ajustar olkSes = nada
Ajustar o olkApp = nada
o msgbox “terminou!”
|