sporočilo iz outlooka

Pomoč pri izdelavi makrov
Odgovori
DusanS
Prispevkov: 31
Pridružen: To Jul 26, 2005 11:16 am

sporočilo iz outlooka

Odgovor Napisal/-a DusanS »

ko uporabim makro za pošiljanje maila (narejen po bnasvetu iz tega foruma), outlook prikaže opozorilo "Program poskuša samodejno poslati e-pošto v vašem imenu. Ali želite to dovoliti..."
Saj ni težko pritisniti gumb "DA", vendar to onemogoča popolnoma avtomatično pošiljanje mailov. Kako se znebim zoprnega opozorila. Uporabljam Outlook 2003.
V naprej zahvala za pomoč,
lp Dušan
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: sporočilo iz outlooka

Odgovor Napisal/-a admin »

:) zanimivo, da sem ravno za eno stranko reševa ta problem...

Dejstva so sledeča. Za Outlook 2003 sicer obstaja rešitev a ni podprta s strani MS-a temveč gre za določen trik, ki v Outlooku 2003 pač deluje. Ugotovili smo, da deluje tudi v Outlooku 2007, v Outlooku 2010 pa so ta "stranska vrata" že zaprli in stvar ne deuje več. V vsakem primeru pa gre tukaj za določeno vrsto poseganja v Outlook in ga ravno ne priporočam.

Torej uradne rešitve ni, ker je to VARNOSTNI sistem in je namenjeen zaščiti uporabnika in vam zatorej tudi priporočem da preprosto ostanete pri tem. Kot samo praviti gre samo za stisk enega gumba in to niti ni tako hudo ;)
lp,
Matjaž Prtenjak
Administrator
DusanS
Prispevkov: 31
Pridružen: To Jul 26, 2005 11:16 am

Re: sporočilo iz outlooka

Odgovor Napisal/-a DusanS »

Hvala za hiter odgovor. Tokrat pač ne gre :(
Mogoče vam pa kaj pomaga: v podjetju uporabljamo exchange z outlookom 2010, isti makro pošilja maile brez prej omenjanega opozorila.

LP Dušan

Koda: Izberi vse

'PosliEPosto_Outlook
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem    
Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
        With OutMail
            .To = za1
            .CC = za2
            .BCC = za3
            .Subject = tit
            .body = e_text
            '.Attachments.Add xName
            .Send
        End With
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: sporočilo iz outlooka

Odgovor Napisal/-a admin »

Hm, to pa je zanimivo, ne namreč sam makro, ki je povsem klasičen in kot tak bi zagotovo povzročil opozorili... To mora biti nekaj drugega - ali uporabnik s kakšnimi posebnimi pravicami ali pa kakšna nastavitev Outlooka? Ali lahko bolj natančno pogledate?
lp,
Matjaž Prtenjak
Administrator
bluespeed
Prispevkov: 47
Pridružen: Po Nov 20, 2006 8:25 pm

Re: sporočilo iz outlooka

Odgovor Napisal/-a bluespeed »

Finta je v tistem send na koncu...
če ga ni ali ga onemogočiš te vpraša, drugače pa kar samo pošlje.
Je pa res, da imamo omogočene makre v Outlooku, tiste ki so elektronsko podpisani.

'PosliEPosto_Outlook
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = za1
.CC = za2
.BCC = za3
.Subject = tit
.body = e_text
'.Attachments.Add xName
.Send
End With
Odgovori