Microsoft Outlook troubleshooting

Możesz stworzyć prostą bazę zawierającą kolumny takie jak: Data, Temat, Od, Do, Odebrano, Treść, Utworzony lub inne

Poniższy kod pokazuje ci jak dodać każdą przychodzącą wiadomość do przygotowanej wcześniej bazy Access uzywając creatora reguł.

Aby tego dokonać otwierasz edytor kodu VBE w Outlooku, używając [Alt+F11], potem: menu/insert/module, wklejasz ten kod. Następnie dodajesz kontrolkę ADO: Add Menu/Tools/References/Ado  (nazwa dokładnie jak w zakomentowanej linii poniżej przedstawionego kodu).

Sub z_OL_do_ACC(olMail As MailItem) 
'Dodać w referencjach: Microsoft ActiveX Data Object 2.5 Library
On Error GoTo blad
Dim Con As New ADODB.Connection
Const Plik$ = "c:\Temp\File.accdb" 'zmodyfikowaś sciezkę.
Const Pass$ = ""
Const User$ = ""
Const ConStr$ = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _
"Dbq=" & Plik & ";Uid=" & User & ";Pwd=" & Pass & ";"
With olMail
Dim SQL$: SQL = "insert into Informacja_asystent (" & _
"Data, Temat, Od, Do, Odebrano, Treść, Utworzony) values ('" & _
Now & "', '" & _
.Subject & "', '" & _
.SenderEmailAddress & "', '" & _
.To & "', '" & _
.ReceivedTime & "', '" & _
.Body & "', '" & _
.CreationTime & "')" 'dodać ew inne elementy bazy
End With

With Con
.Open ConStr
.Execute SQL
.Close
End With

koniec:
Set Con = Nothing
Exit Sub
blad:
MsgBox Err.Number & vbCr & Err.Description, vbExclamation, "Informacja o błędzie"
Resume koniec
End Sub

Wygląd bazy po imporcie:

Dodanie kodu w regule odbywa się poprzez wskazanie jego nazy:

Otwierasz kreator reguł i po wyborze twoich preferencji odnośnie działania, w drugim kroku wskazujesz po nazwie pow. procedurę zaznaczając box Skrypt.
Zmodyfikuj ścieżkę osadzenia bazy Accesowej i ew. popraw lub dopisz wiecej kolumn. Jeśli chcesz bardziej rozbudowac kod o dodawanie załączników do bazy, przeczytaj wcześniej ten atrykuł.

MVP Shon Oskar – VBATools.pl
Jeśli masz pytania dot. tego artykułu zapraszam na Forum
Skonfiguruj swój pakiet dodatków do Excela, Worda, PowerPointa i Outlooka



© Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.

Komentarze

Komentarze
Jo Jan
Jo Jan 2014-02-27 06:34:14
Wg tego artykułu nie zrobisz sobie bazy danych wiadomości e-mail. Autorze napisałeś to dla siebie a nie dla mas. Zrób to raz jeszcze krok po kroku to się pobawimy inaczej jest to bez sensu. Pzdr.
OShon
OShon, VBATools 2014-04-30 23:27:52
Co jest bez sensu? w czym problem, z przygotowaniem pliku accdb czy z vba? Zapraszam do dyskusji na forum.
lajkonik
lajkonik 2014-08-07 11:15:26
@Jo Jan - nie wiem czy to jest profesjonalna metoda (bo nie jestem pro w VBA) niemniej zadziałała. Po wklejeniu kodu makra (Alt+F11) i dodaniu kontrolki (Microsoft ActiveX Data Object 2.5 Library) oraz ustawieniu reguły z wyborem skryptu (Projekt1.z_OL_do_ACC) tworzysz w Accessie pustą bazę danych i zapisujesz ją w wybranym katalogu (który podałeś w wierszu modyfikacji ścieżki), jako plik File.accdb. Po chwili 'zabawy' dojdziesz gdzie i co kliknąć, żeby zmienić nazwę Tabela1 na Informacja_asystent oraz żeby dodać kilka pól, których nagłówki musisz ponazywać: Numer, Data, Temat... itd. - jak na przedstawionym w poradzie obrazku "Wygląd bazy po imporcie:". I mając ten plik procedura będzie działała.
czymaupy
czymaupy, UI 2014-08-20 09:24:39
Opis należałoby uzupełnić i pewnie o to chodziło Jo Jan: 1. Aby tego dokonać otwierasz edytor kody VBE używając [Alt+F11] - GDZIE? (w Outlook) 2. Następnie dodajesz kontrolkę ADO: Add Menu/Tools/References/Ado - GDZIE? (...) etc.. Byłoby to bardziej użyteczne dla szerszej grupy ludzi. PZD.
czymaupy
czymaupy, UI 2014-08-20 09:24:48
Opis należałoby uzupełnić i pewnie o to chodziło Jo Jan: 1. Aby tego dokonać otwierasz edytor kody VBE używając [Alt+F11] - GDZIE? (w Outlook) 2. Następnie dodajesz kontrolkę ADO: Add Menu/Tools/References/Ado - GDZIE? (...) etc.. Byłoby to bardziej użyteczne dla szerszej grupy ludzi. PZD.
czymaupy
czymaupy, UI 2014-08-20 09:25:09
Opis należałoby uzupełnić i pewnie o to chodziło Jo Jan: 1. Aby tego dokonać otwierasz edytor kody VBE używając [Alt+F11] - GDZIE? (w Outlook) 2. Następnie dodajesz kontrolkę ADO: Add Menu/Tools/References/Ado - GDZIE? (...) etc.. Byłoby to bardziej użyteczne dla szerszej grupy ludzi. PZD.
czymaupy
czymaupy, UI 2014-08-20 09:28:26
Sorry za potrójny post, ale strona ma kłopot z odświeżaniem.