Como usar um conjunto de registros para enviar email do Outlook para vários destinatários no Microsoft Access

O suporte para o Office 2003 terminou

A Microsoft terminou o suporte para o Office 2003 em 8 de abril de 2014. Esta alteração afetou as suas atualizações de software e opções de segurança. Saiba o que isto significa para você e como permanecer protegido.

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 318881
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Avançadas: Requer especialista de codificação, interoperabilidade e habilidades de multiusuário.

Sumário
Este artigo descreve como usar automação para enviar uma mensagem de email Microsoft Outlook para vários destinatários cujos endereços estão listados em uma tabela do Microsoft Access. Este artigo também usa o Access controles para adicionar o corpo da mensagem, para preencher o campo Cc e preencha o assunto do formulário campo. Além disso, este artigo descreve um método através de programação que você pode usar para incluir anexos de email e resolver email endereços com o catálogo de endereços do Outlook.
Mais Informações
Para criar uma sessão do Outlook a partir do Access e usar um conjunto de registros para enviar mensagens de email para vários destinatários, execute estas etapas:
  1. Crie um arquivo de texto que você pode usar como um anexo. Salve o arquivo de texto como "TestAttachment.txt" na raiz da unidade C. Por exemplo, você pode salvar o arquivo de texto como C:\TestAttachment.txt.
  2. Crie um novo banco de dados é denominado Db1.mdb.
  3. Criar uma nova tabela com as seguintes informações no Db1.mdb:
    Table: tblMailingList----------------------Field Name: EmailAddressData Type:  text					
  4. Digite vários endereços de email válido na EmailAddress campo.
  5. Criar um formulário com as seguintes informações:
    Form: frmMail   ----------------------   RecordSource: tblMailingList   Text box   ---------------------------   Name: CCAddress   ControlSource: Unbound   Label Caption: CC Address      Text box   ---------------------------   Name: Subject   ControlSource: Unbound   Label Caption: Subject   Text box   ---------------------------   Name: MainText   ControlSource: Unbound   Label Caption: Message Body					
  6. Abra o formulário no modo de formulário e, em seguida, digite dados de exemplo nas caixas apropriadas. Pressione ENTER após cada entrada e, em seguida, deixe o formulário aberto quando você terminar.
  7. Crie um novo módulo. Adicione o código de exemplo a seguir ao módulo novo.
    Option Compare DatabaseOption ExplicitSub SendMessages(Optional AttachmentPath)  Dim MyDB As Database  Dim MyRS As Recordset  Dim objOutlook As Outlook.Application  Dim objOutlookMsg As Outlook.MailItem  Dim objOutlookRecip As Outlook.Recipient  Dim objOutlookAttach As Outlook.Attachment  Dim TheAddress As String  Set MyDB = CurrentDb  Set MyRS = MyDB.OpenRecordset("tblMailingList")  MyRS.MoveFirst  ' Create the Outlook session.  Set objOutlook = CreateObject("Outlook.Application")    Do Until MyRS.EOF  ' Create the e-mail message.  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)  TheAddress = MyRS![EmailAddress]     With objOutlookMsg        ' Add the To recipients to the e-mail message.        Set objOutlookRecip = .Recipients.Add(TheAddress)        objOutlookRecip.Type = olTo        ' Add the Cc recipients to the e-mail message.        If (IsNull(Forms!frmMail!CCAddress)) Then        Else           Set objOutlookRecip = .Recipients.Add(Forms!frmMail!CCAddress)           objOutlookRecip.Type = olCC        End If           ' Set the Subject, the Body, and the Importance of the e-mail message.        .Subject = Forms!frmMail!Subject        .Body = Forms!frmMail!MainText        .Importance = olImportanceHigh  'High importance                'Add the attachment to the e-mail message.        If Not IsMissing(AttachmentPath) Then           Set objOutlookAttach = .Attachments.Add(AttachmentPath)        End If        ' Resolve the name of each Recipient.        For Each objOutlookRecip In .Recipients           objOutlookRecip.Resolve           If Not objOutlookRecip.Resolve Then             objOutlookMsg.Display           End If        Next        .Send      End With      MyRS.MoveNext   Loop   Set objOutlookMsg = Nothing   Set objOutlook = NothingEnd Sub					
  8. No Editor do Visual Basic, clique em referências no menu Ferramentas .
  9. Na lista Referências disponíveis , clique em Microsoft Outlook 8.0 Object Library e em seguida, clique em OK .

    Observação Você precisa selecionar a biblioteca de objeto correto do Microsoft Outlook. A biblioteca de objetos do Microsoft Outlook que você seleciona depende da versão do Outlook que está instalado no seu computador. Por exemplo, se você tiver o Office Outlook 2003 instalado em seu computador, clique em Microsoft Outlook 11.0 Object Library .
  10. Pressione CTRL+G para abrir a janela Verificação imediata.
  11. Para enviar a mensagem de email com um anexo, digite o seguinte comando na janela Verificação imediata:
    SendMessages "C:\TestAttachment.txt"
    Pressione ENTER.

    Como alternativa, para enviar a mensagem de email sem um anexo, omita o argumento ao chamar o procedimento. Digite o seguinte comando na janela Verificação imediata:
    SendMessages
    Pressione ENTER.
Referências
Para obter informações adicionais sobre como usar automação para controlar o aplicativo, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
161088Usando automação para enviar uma mensagem do Microsoft Outlook
160502Usando automação para adicionar compromissos para o Microsoft Outlook
161012Como criar um novo item de contato no Outlook com a automação
PRB inf

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 318881 - Última Revisão: 12/07/2015 09:09:13 - Revisão: 3.4

Microsoft Access 97 Standard Edition, Microsoft Access 2000 Standard Edition, Microsoft Access 2002 Standard Edition, Microsoft Office Access 2003

  • kbnosurvey kbarchive kbmt kbhowto KB318881 KbMtpt
Comentários