| |
O
item mensagem do Outlook
Como o modelo de objectos do Outlook é estruturado de forma
diferente às restantes aplicações do Office, fácilmente se
torna frustrante quando começas a programar com ele.
Felizmente, são poucas as vezes em que tens de utilizar a
hierarquia de objectos, normalmente utiliza-se outra aplicação e
tentas dar-lhe a capacidade de criação de correio electrónico.
Aqui vão algumas dicas de como fazê-lo. (Nota: como as versões
anteriores ao Outlook 2000, utilizam o VBScript internamente,
estes exemplos, assumem que estás a utilizar o VBA de outra
aplicação que não o Outlook. Claro que para isso tens de
incluir uma referência à Microsoft Outlook Object Library).
Objecto:
MailItem
Simplesmente colocado,
um MailItem representa uma mensagem na pasta Inbox (A receber).
Para criar uma nova mensagem, tu crias um novo MailItem. Para te
referires a uma mensagem, utilizas a colecção de Items.
Items(indice)
Esta colecção contém
todos os objectos do Outlook de uma pasta especifica. Como existem
vários membros numa colecção, referes-te a um item em
particular pelo seu indice número ou nome. Para o propósito de
um MailItem, o nome é o texto que aparece no campo Assunto. Por
exemplo:
Set olApp = New Outlook.Application
Set olFolder = olApp.GetNamespace("MAPI") _
.GetDefaultFolder(olFolderInbox)
Set itmMailItem = olFolder _
.Items("Pedido de informações")
cria uma variável, itmMailItem, baseado na mensagem com o Assunto
"Pedido de informações". Nota, que, se tiveres duas
mensagens com o mesmo assunto, utilizar o nome como indice só vai
retornar a primeira mensagem.
Recipients(indice)
Esta colecção
representa a lista de endereços indicada no campo Para de uma
mensagem de correio electrónico. Utilize o método Add, para
adicionar um destinatário ao MailItem, tal como,
Set itmMail = OlApp.CreateItem(olMailItem)
itmMail.Recipients.Add "automating_w_vba@zdjournals.com"
Como se refere a um Recipient (Destinatário) varia consoante já
o tenhas colocado como um recurso no Outlook ou não. Por exemplo,
digamos que já tinhamos inserido o Ricardo Silva como recurso na
sua Lista de Contactos. Utilizando o exemplo anterior, bastava
alterarmos o endereço de email, desta forma:
Set itmMail = OlApp.CreateItem(olMailItem)
itmMail.Recipients.Add "Ricardo Silva"
Métodos: CreateItem(ItemType)
Em geral, utiliza-se este método para criar um novo item de
Outlook. Para os MailItems, utiliza a constante olMailItem no
argumento ItemType . Este método é especialmente útil, porque
quando utilizado em conjunto com o objecto Aplication, não há
necessidade de transcrever a hierarquia de pastas do Outlook, só
para criar um novo item. Então, para abrir uma nova mensagem de
correio electrónico, utilizaría,
Set olApp = New Outlook.Application
Set itmMail = olApp.CreateItem(olMailItem)
Enviar, Responder, Responder a Todos
Estes três comandos funcionam da mesma forma como os botões na
barra de ferramentas. Utilize-os para Enviar ou Responder a um
MailItem especifico. Por exemplo, para enviar o objecto itmMail
que criámos anteriormente, coloque a seguinte linha no código:
itmMail.Send
O Outlook toma conta do resto. Para responder a mensagens,
substitua Send deste exemplo por Reply (Responder) ou ReplyAll
(Responder a Todos), dependendo do tipo de acção que pretender
levar a cabo.
Propriedades: Subject {Assunto}
Esta propriedade é igual ao campo do email do Outlook. Define o
texto que aparece na linha de cabeçalho do Assunto. Código:
itmMail = "Pedido de informações"
é equivalente a…
itmMail.Subject = "Pedido de informações"
porque esta propriedade está por defeito em todos os items do
Outlook. |
