Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Makra w Outlook

gold3 · forumowicz Posty: 17

Witajcie
Proszę Was o pomoc
Codziennie wysyłam dużo maili i potrzebuje zautomatyzować sobie szablon wiadomości.
Chciałbym aby po wyborze makra pojawiało się okienna z 2 polami (listą rozwijana)

Pierwsze pole - nazwa pola "Czynność" i wartości :czynność1 i czynność2
drugie pole - nazwa pola "Urzadzenie" i wartości :urzadzenie1 i urzadzenia2
i przycisk ok

Komunikat potwierdzający wybór "Wybrałeś: xxxx" i przycisk ok aby przejść dalej lub powrót aby wrócić i poprawić wybór

Jak przechodzę dalej to:

PO WYBRANIU CZYNNOŚĆ 1
Pojawia się kolejny formularz, w którym mam pola do wpisywania

Pierwsze pole "nr zgłoszenia" - tu wpisuje cyfry bez spacji
Drugie pole „nr urzadzenia” – tu wpisuje litery i cyfry
Trzecie pole "opis problemu" - tu wpisuje jakiekolwiek znaki
I przycisk ok.
Otwiera się okienko z nową wiadomością:

Pole Od – tu chciałbym aby Outlook wyszukał z książki adresowej LDAP na Exchange i podstawił adam.nowak
Pole temat: treść11111 (pobranie wartości z pola „Urządzenia”) (pobranie wartości z pola „nr urządzenia”) (pobranie wartości z pola nr zgłoszenia)

Treść wiadomości:
Test1Test1 Test1Test1Test1Test1Test1Test1 Test1Test1Test1Test1 (pobranie wartości z pola “Urządzenia”)(Pobranie wartości z pola „opis problemu” )

PO WYBRANIU CZYNNOŚĆ 2
Pojawia się kolejny formularz, w którym mam pola do wpisywania

Pierwsze pole „Data” – tu wybieram wartość z kalendarza lub wpisuje z palca dd-mm-rrrr
Drugie pole „Miejsce” – tu wpisuje numer lub jeżeli jest możliwość wybieram adresatów z książki adresowej LDAP na Exchange
Trzecie pole „Osoba” – tu wpisuje jakiekolwiek znaki

I dalej chyba sobie poradzę z wygenerowaniem maila na przykładzie wcześniejszym

Bardzo prosżę osoby posiadające taką wiedzę o pomoc.
Pozdrawiam

OShon · Wysłany: 2011-12-16, 14:35

Obawiam się że do książki LDAP nie dostaniesz sie z VBA tak prosto, możesz to zrobić np przy pomocy tej funkcji
Resztę możesz zaprogramować tworząc interfejs w formach zapisanych w projekcie .OTM
Do daty masz kontrolki mscomct2.ocx - dwie do wyboru

Albercik777 · Excel Expert **Pomógł:** 291 razy Posty: 616

gold3,
Proponuje, abyś zrobił ile możesz, o LDAP raczej zapomnij ewentualnie można użyć GAL z outlooka.
Nie mniej jednak fajnie by było, gdybyś sam spróbował rozwiązać problem a na forum zgłosił się z konkretnym problemem/problemami, z którymi sobie nie radzisz.

Obecnie zgłosiłeś się z całym projektem :-P

OShon · Wysłany: 2011-12-21, 09:03

Znalazłem też takie rozwiązanie:

Kod:

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
web_address = "www.Website.com"
strMobileNumber = objuser.TelephoneMobile
Disclaimer = "Add Disclaimer Here"

Sam nie korzystam z bazy LDAP także nie sprawdzę w działaniu