Note: The other languages of the website are Google-translated. Back to English
English English

Como enviar um e-mail recorrente agendado no Outlook?

No Microsoft Outlook, você pode enviar facilmente um compromisso, reunião ou tarefa recorrente agendada para outras pessoas. Mas se você apenas deseja enviar um e-mail recorrente agendado sem nenhum compromisso, reunião ou tarefa, como pode fazer? Infelizmente, o Outlook não oferece nenhum recurso para envio de e-mail recorrente programado, mas em nosso tutorial mostraremos como enviar um e-mail recorrente programado no Outlook.

Envie um e-mail recorrente agendado no Outlook com o código VBA

Envie facilmente e-mails recorrentes agendados no Outlook com uma ferramenta incrível


Envie um e-mail recorrente agendado no Outlook com o código VBA

Este tutorial é dividido em quatro partes, você enviará um e-mail recorrente de agendamento após concluir essas partes. Faça o seguinte.

Parte 1: Criar um novo compromisso

1. Navegue até o Calendário visualizar clicando Calendário no Painel de Navegaçãoe, em seguida, crie um novo compromisso clicando em Novo compromisso para Início aba.

3. No de agendamento diálogo sob de agendamento aba. Você precisa:

R: Digite o Assunto B: Insira os endereços de e-mail dos destinatários no Localização
C: Configure o Hora de início e o Tempo final D: Selecione o lembrete sob o lembrete lista suspensa.
Se você escolher 15 minutos, isso significa que o lembrará 15 minutos antes do envio do e-mail.
E: Componha seu corpo de nomeação.

Nota: O Assunto Nomeação se tornará o assunto recorrente do email; e a Corpo de Nomeação se tornará o corpo do email recorrente quando os destinatários receberem o email.

Parte 2: Crie uma nova categoria

Agora você precisa criar uma nova categoria chamada “Enviar e-mail recorrente de agendamento" do seguinte modo:

1. No de agendamento diálogo, por favor clique Categorizar > todas as categorias no Tags grupo sob de agendamento aba.

2. Quando o Categorias de cores caixa de diálogo aparecendo, por favor clique Novo botão. No Adicionar nova categoria diálogo, digite “Enviar e-mail recorrente de agendamento"Na Nome campo; e, em seguida, escolha uma cor no Cor lista suspensa. Então clique OK.

3. Então você verá o “Enviar e-mail recorrente de agendamento"Categoria está listada, marque a caixa e clique em OK botão.

Parte 3: Definir a recorrência

Agora, é hora de marcar a recorrência da consulta.

1. Clique Retorno no Opções grupo sob de agendamento aba. Veja a imagem:

2. No Recorrência de nomeação diálogo, configure seu Retorno padronizar. Se precisar de um horário de término, configure-o em Faixa de recorrência. E, em seguida, clique em OK.

3. Quando ele retorna ao de agendamento diálogo, por favor clique Salvar fechar botão. Veja a imagem:

Parte 4: Use o código VBA para enviar o Email Recorrente de Programação

1. Pressione outro + F11 para abrir o Microsoft Visual Basic para Aplicações diálogo.

2. Clique duas vezes em Project1 > Objeto Microsoft Outlook > Esta sessão do Outlook no painel esquerdo. Veja a imagem:

3. Copie e cole o seguinte código VBA no editor VBA. E então clique Salvar botão.

VBA: envio de e-mail recorrente de agendamento

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. Clique Ferramentas > Referências para abrir o Referências - Projeto diálogo. Na caixa de diálogo, verifique o Biblioteca de objetos do Microsoft Word opção e clique no OK botão.

5. aperte o outro + Q chaves ao mesmo tempo para fechar o Microsoft Visual Basic para Aplicações janela.

Quando o lembrete surgindo, o e-mail será enviado automaticamente para os destinatários que você digitou no campo Localização na primeira parte. Então clique Fechar no lembrete diálogo. E o e-mail será enviado periodicamente todos os dias neste horário. Veja a imagem:

Nota: O código VBA foi testado com êxito no Outlook 2010 e nas versões posteriores.


Envie facilmente e-mails recorrentes agendados no Outlook com uma ferramenta incrível

Para muitos usuários do Outlook, o método acima é tedioso demais para ser executado corretamente. Aqui recomendo fortemente o Agendar envio automático característica de Kutools para Outlook. Com esse recurso, você pode criar facilmente vários e-mails recorrentes e programar esses e-mails para serem enviados regularmente em intervalos diários, semanais, mensais ou anuais, conforme necessário. Faça o seguinte para fazer isso.

Acesse baixar Kutools para Outlook e tente.

1. Clique Kutools > Agendar envio automático > Criar cronograma de envio automático.

2. Em seguida, uma janela de mensagem é aberta e você precisa:

2.1) Selecione os destinatários de e-mail no Para, Cc or Bcc campos conforme você precisa e, em seguida, preencha o e-mail sujeito;
2.2) Componha o corpo do e-mail;
2.3) Clique Retorno sob a Kutools Recorrente aba. Veja a imagem:

3. Agora o Recorrência de Emails caixa de diálogo aparece, você precisa especificar o tempo recorrente, padrão recorrente e o gama de recorrência para o e-mail e, em seguida, clique no OK botão.

4. Agora ele retorna para a janela de mensagem, clique Salvar fechar para salvar as configurações recorrentes e fechar a janela.

Dicas: Você pode repetir as etapas 1 a 4 acima para criar vários e-mails recorrentes conforme necessário.

5. Agora ative o recurso clicando em Kutools > Agendar envio automático > Habilitar.

6. Na abertura Kutools para Outlook caixa de diálogo, clique em OK.

Depois de terminar as configurações acima, os e-mails recorrentes serão enviados automaticamente quando a data e hora especificadas chegarem.

NOTA Você pode gerenciar facilmente seus e-mails recorrentes da seguinte maneira.

1. Clique Kutools > Agendar envio automático > Gerenciar programação de envio automático.

2. No Agendamento de envio automático de gerenciamento janela, você pode criar novo e-mail recorrente, editar apagar, Ligar or WOW! um e-mail recorrente existente conforme necessário. Ou você pode clicar no Folhas para ícone para visualizar o histórico de envio de e-mails recorrentes.

Clique para saber mais sobre este recurso.

  Kutools para Outlook inclui mais de 100 recursos poderosos para o Microsoft Outlook. Gratuito para testar sem limitação em 60 dias. Faça o download agora!


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (169)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
O método ajudou. Funcionou para o compromisso inicial criado quando eu estava testando. Mas depois parou de funcionar.
Este comentário foi feito pelo moderador no site
Eu tive o mesmo problema, repeti as etapas várias vezes e agora não está funcionando, nenhum e-mail sendo enviado ou qualquer coisa Você conseguiu corrigi-lo?
Este comentário foi feito pelo moderador no site
Olá, consegui configurar um e-mail recorrente seguindo as etapas acima, mas quando criei um hiperlink no corpo de um compromisso, quando o evento foi acionado e recebi um e-mail no e-mail, o hiperlink foi convertido em um link bruto. Qualquer ajuda é apreciada, obrigado.
Este comentário foi feito pelo moderador no site
Obrigada! Isso funcionou. Existe uma maneira de incluir um anexo no e-mail que é enviado? Eu tentei um teste com a adição do anexo ao evento do calendário, mas ele não chega no e-mail.
Este comentário foi feito pelo moderador no site
você já recebeu uma resposta sobre como adicionar um anexo? Obrigado!
Este comentário foi feito pelo moderador no site
Eu consegui que isso funcionasse para o email de teste, mas agora não faz mais nada, e apaguei tudo e repeti as etapas, há mais por trás disso? Também estou no outlook 2013
Este comentário foi feito pelo moderador no site
Eu tive o mesmo problema. Isso funcionou da primeira vez, mas o lembrete de compromisso recorrente não parece ter acionado o e-mail. Alguém encontrou a solução para este problema?
Este comentário foi feito pelo moderador no site
[quote]Eu consegui que isso funcionasse para o e-mail de teste, mas agora não faz mais nada, e apaguei tudo e repeti as etapas, há mais alguma coisa? Também estou no outlook 2013Por Maravilhoso[/quote] Você já resolveu isso? Acabei de configurar e estou vendo a mesma coisa que você viu. Funcionou muito bem na primeira vez, então nada.
Este comentário foi feito pelo moderador no site
Eu resolvi isso eventualmente habilitando macros no Outlook, que por padrão está desativada. O único problema que tenho agora é que o texto no e-mail é apenas texto simples, sem negrito, tamanho da fonte ou alterações de cor etc. Existe alguma maneira de alterar o código acima para que você tenha texto RTF ou HTML no e-mail?
Este comentário foi feito pelo moderador no site
Oi você resolveu isso. Eu tenho o mesmo problema Tentei isso, mas não está funcionando. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.GetProperty, Nothing, mail, Nothing)) 'OlBodyFormat.olFormatUnspecified = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Then mailFormat = 2 mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.SetProperty, _ Nothing, mail, New Object() {mailFormat}) End Sub Private Sub Application_Reminder(ByVal Item As Object) Dim MItem As MailItem Set MItem = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Then Exit Sub If Item .Categorias "Enviar E-mail Recorrente de Agendamento" Então Sair Sub MItem.To = Item.Location MItem.Assunto = Item.Assunto MItem.Body = Item.Body MItem.Send Definir MItem = Nada End Sub
Este comentário foi feito pelo moderador no site
[quote]Eu resolvi isso eventualmente ativando macros no Outlook, que por padrão está desativada. O único problema que tenho agora é que o texto no e-mail é apenas texto simples, sem negrito, tamanho da fonte ou alterações de cor etc. Existe alguma maneira de alterar o código acima para que você tenha texto RTF ou HTML no e-mail?Por Kyle[/quote] Oi, você encontrou uma solução para isso. Eu preciso disso :) Kim
Este comentário foi feito pelo moderador no site
Você também pode considerar usar o Agendador de Tarefas do Windows para algo assim. É fácil de usar e pode até mesmo lidar com acessórios.
Este comentário foi feito pelo moderador no site
Tentei com task mas não ganho nada pois o anexo não vai para o corpo do email. Por favor, informe como você fez isso.
Este comentário foi feito pelo moderador no site
Qual código você está usando? Não anexou ao e-mail os anexos.
Este comentário foi feito pelo moderador no site
como você desligá-lo?
Este comentário foi feito pelo moderador no site
De cabeça, para parar de enviar e-mails recorrentes, você pode: 1. Excluir o compromisso completamente. 2. Altere ou remova a categoria definida. 3. Aplique uma data de 'Término em' à Recorrência de Nomeação.
Este comentário foi feito pelo moderador no site
você precisa ter o Outlook aberto/em execução para enviar o correio recorrente?
Este comentário foi feito pelo moderador no site
Este código funciona com o Office 365 - Outlook 2013? Eu segui os passos várias vezes, habilitei as macros também. Recebo o lembrete e pressiono dispensar, mas os e-mails nunca são enviados.
Este comentário foi feito pelo moderador no site
Ei, veja isso - acho que você vai adorar esse recurso. Chega de e-mails semanais de modelo
Este comentário foi feito pelo moderador no site
Existe uma maneira de enviar para lista de distribuição em contatos?
Este comentário foi feito pelo moderador no site
Sim Aaron, eu precisava fazer isso sozinho. Tentei adicionar uma lista de distribuição (Outlook Contact Group) chamada 'Spec Group'. Este não enviou. No entanto, alterei o nome da lista para 'Spec@Group' (para parecer um endereço de e-mail real) e funcionou perfeitamente. Deve precisar do '@' para ser pego. Palpite de sorte! :lol:
Este comentário foi feito pelo moderador no site
Isso funcionou bem. Agora preciso do mesmo e-mail para ir a vários grupos. Alguém pode ajudar? Private Sub Application_Reminder(ByVal Item As Object) Dim CF As Folder Set CF = Application.Session.GetDefaultFolder(olFolderContacts) Dim DLI As DistListItem Set DLI = CF.Items("GDL Group 1") Dim MItem As MailItem Set MItem = Application. CreateItem(olMailItem) Se Item.MessageClass "IPM.Appointment" Então Exit Sub Se Item.Categories "Recorrente GDL Recert Email" Então Sair Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Send Set MItem = Nothing End Sub
Este comentário foi feito pelo moderador no site
Faça outra lista de distribuição que contenha/aponte para as outras listas de distribuição que você já configurou e que deseja incluir.
Este comentário foi feito pelo moderador no site
É possível agendar um e-mail para ser enviado no Outlook quando o computador estiver fora. Por exemplo, gostaria de enviar um lembrete de compromisso no domingo para uma reunião na segunda-feira, mas não estou no trabalho aos domingos, então como faço para que esse e-mail seja enviado no domingo quando não estou no trabalho e meu computador está fora? Obrigado!
Este comentário foi feito pelo moderador no site
O código VBA não apareceu quando pressionei ALT & F11. Consegui abrir o Microsoft Visual Basic for Applications, mas nenhum código estava presente. Você pode por favor aconselhar? Obrigado, Raj
Este comentário foi feito pelo moderador no site
Oi Raj, nenhum código VBA deve estar presente. Se você seguir o guia acima, quando você clicar duas vezes em "ThisOutlookSession", ele deve estar vazio. Você deve copiar e colar o código mostrado no guia na janela "ThisOutlookSession" e salvá-lo. Espero que isto ajude.
Este comentário foi feito pelo moderador no site
Oi quando eu sigo todas as etapas e salve e vá fazer outro e-mail - o código ainda está lá da última vez. O código está anexado à categoria selecionada, então não há necessidade de adicionar o código para cada e-mail?
Este comentário foi feito pelo moderador no site
Oi Bonnie, o código VBA só precisa ser adicionado uma vez (para o primeiro e-mail recorrente). Se configurar mais de um e-mail recorrente, perca essa etapa.
Este comentário foi feito pelo moderador no site
Eu tenho o Office 2016 e tentei isso, seguindo exatamente suas instruções. Funcionou!! Muito obrigado. Eu tive que alterar minhas configurações de segurança de macro no Outlook 2016 e no editor VBA para fazê-lo funcionar, mas uma vez feito isso, as instruções fluíram facilmente.
Este comentário foi feito pelo moderador no site
Oi, Como você alterou as configurações de segurança de macro no Outlook e para o que você alterou?
Este comentário foi feito pelo moderador no site
Então, duas coisas, uma não aparece do jeito que eu escrevi, ou seja, não há caracteres em negrito e duas, como eu adiciono uma assinatura? porque aparece como um hiperlink em vez da minha assinatura regular. Obrigado pela ajuda.
Este comentário foi feito pelo moderador no site
Alex Mine aparece com a formatação removida também. Como o mantemos?
Este comentário foi feito pelo moderador no site
Enviou bem, mas deixou cair toda a formatação sofisticada que tenho no corpo do meu e-mail. Como faço para manter essa formatação???
Este comentário foi feito pelo moderador no site
Eu preciso saber como \ se você pode anexar uma planilha do Excel?
Este comentário foi feito pelo moderador no site
Ei pessoal. Este código funciona muito bem, mas eu tenho um pequeno problema. O email que estou tentando enviar faz parte de duas categorias: Enviar mensagem (a macro usa) e PROGRAMARI RED-TEAM. A macro funciona bem quando adiciono apenas a categoria Enviar mensagem, mas assim que qualquer outra categoria é adicionada, a macro para de enviar e-mails. Aqui está o código até agora. Por favor ajude :P Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem para observar lembretes de tarefas If Item.MessageClass "IPM.Appointment" Então Exit Sub End If If Item.Categories "Enviar Mensagem" Então Sair Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Insituir expirar Autorização/Contratar Serviço" objMsg.Body = "Buna ziua," & vbNewLine & vbNewLine & _ "Conform bazei noastre de date, autorizatia/contratul de service, incheiat intre compania nostra si " + Item.Subject + "urmeaza sa expire in termen de 14 zile." & vbNewLine & _ "Acest lucru este in atentia departamentului nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp possibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim pentru increderea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Nothing End Sub
Este comentário foi feito pelo moderador no site
está parando por causa da linha.... Se Item.Categories <> "Enviar E-mail Recorrente de Agendamento" Então Exit Sub
quando você adiciona a outra categoria, está causando o sub de saída .... talvez use if instr(1,item.categories,"Send Schedule Recurring Email") =0 então exit sub ou algo assim ...
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos