<div>Alceu, alguma evolução neste assunto ?</div>
<div> </div>
<div>Solli M. Honório<br><br> </div>
<div><span class="gmail_quote">On 3/16/07, <b class="gmail_sendername">Alceu R. de Freitas Jr.</b> <<a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a>> wrote:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid"><br>--- Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>
><br>escreveu:<br><br>> On Mar 12, 2007, at 5:16 PM, Alceu R. de Freitas Jr.<br>> wrote:<br>> > 1 - Não consigo me conectar no Exchange Server<br>> pela<br>> > porta 25: eu poderia tentar resolver com o
<br>> > departamento de TI daqui, mas vai demorar tempo<br>> demais<br>> > e eu precisaria disso para ontem.<br>><br>> O MacGyver vai te ajudar com isso: ele<br>> implementou o<br>> Net::SMTP::Server. :-D
<br><br>Isso me gera outro problema: eu tenho que mandar email<br>via Exchange usando minha conta coorporativa. Além do<br>mais, eles devem ter algum controle de SPAM.<br><br>> > 2 - Eu tentei utilizar OLE em conjunto com o
<br>> Outlook<br>> > como alternativa, mas isso trouxe outros<br>> problemas,<br>> Ninguém mandou usar Sistemas Operacionais de<br>> brinquedo... ;-)<br>> Descarta isso, carinha. Do ponto de vista do
<br>> windows,<br>> implementando coisas assim, você parece um vírus ou<br>> worm de<br>> computador... ;-) e ninguém quer que um programa<br>> Perl seja confundido<br>> com uma coisa tão... tão... tão baixa. ;-)
<br><br>Bem... minhas últimas tentativas foram tentar usar o<br>MAPI, que teoricamente estariam disponível com a<br>instalação do Outlook. Só tem um probleminha: essa<br>nhaca não funciona nem com reza brava. Alguns links de
<br>referência:<br><br><a href="http://www.unix.org.ua/orelly/perl/sysadmin/ch08_01.htm">http://www.unix.org.ua/orelly/perl/sysadmin/ch08_01.htm</a><br><a href="http://www.programmingtalk.com/archive/index.php/t-2159.html">
http://www.programmingtalk.com/archive/index.php/t-2159.html</a><br><a href="http://aspn.activestate.com/ASPN/docs/ActivePerl/5.8/faq/Windows/ActivePerl-Winfaq9.html#Is_there_a_way_to_access_MAPI_fr">http://aspn.activestate.com/ASPN/docs/ActivePerl/5.8/faq/Windows/ActivePerl-Winfaq9.html#Is_there_a_way_to_access_MAPI_fr
</a><br><br>Tudo o que eu consegui foi essa mensagem de erro:<br><br>Win32::OLE(0.1707) error 0x800401f3: "Invalid class<br>string"<br><br>Se nem programadores de ASP conseguem usar essa<br>tranqueira, quem diria eu que nem sou fã de
<br>programação em ambientes MS.<br><br>Como a quantidade de emails nem era tão grande assim,<br>eu consegui uma solução meia-boca criando os emails no<br>Outlook e salvando-os na pasta de "draft". Isso me<br>permitia dar uma lida nos emails antes de enviar, o
<br>que é bem útil no meu caso, e me poupa um bocado de<br>trabalho ao ter que dizer um monte de informação<br>repetida (ou ficar fazendo CRTL+C e CRTL+V). Ainda dá<br>para criar emails em HTML sem ter que usar nenhum<br>
módulo MIME::*.<br><br>Lá vai um pedaço do código, para os possíveis<br>interessados:<br><br>sub create_email {<br><br> my $body = shift;<br> my $addresse = shift;<br> my $subject = shift;<br><br> my $Outlook =
<br>Win32::OLE->GetActiveObject('Outlook.Application')<br> || Win32::OLE->new('Outlook.Application');<br><br> # Create Mail Item<br> my $item = $Outlook->CreateItem(0); # 0 = mail<br>item.
<br><br> die "Outlook is not running, cannot send mail.\n"<br> unless ( defined($item) );<br><br> $item->{Subject} = $subject;<br> $item->{To} = $addresse;<br><br> # setting the email body as HTML
<br> $item->{BodyFormat} = olFormatHTML;<br> $item->{HTMLBody} = $body;<br><br> $item->{Cc} = BOSSES;<br><br># generates an error message, don't know why. Anyway,<br>Outlook picks the default<br># which in fact is the same email address
<br><br> # 2=high, 1=normal, 0=low<br> $item->{'Importance'} = 2;<br> $item->{ReadReceiptRequested} = 1;<br><br> # Send the Email<br> $item->Save();<br><br>}<br><br>Isso me ajudou nesse caso específico, mas para
<br>qualquer coisa que involva mandar muitos emails, a<br>melhor forma mesmo é conversar com o administrador da<br>rede e dar um jeito de fazer o acesso via SMTP mesmo.<br><br>[]'s<br><br><br>Alceu Rodrigues de Freitas Junior
<br>--------------------------------------<br><a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a><br><a href="http://www.imortais.cjb.net">http://www.imortais.cjb.net</a><br>-----------------------------------------------------------------------
<br>A well-used door needs no oil on its hinges.<br>A swift-flowing stream does not grow stagnant.<br>Neither sound nor thoughts can travel through a vacuum.<br>Software rots if not used.<br>These are great mysteries -- The Tao Of Programming,
5.1<br><br>__________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger<br><a href="http://br.messenger.yahoo.com/">http://br.messenger.yahoo.com/</a><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br>