bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Enviar e-mail automaticamente aos clientes

Enviar e-mail automaticamente aos clientes

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Usuário Samuel:

É um prazer fazer parte deste site.

Estou a alguns dias tentando fazer com que o meu sistema de emissão de Ordem de Serviços, através do botão enviar e-mail, pelo número da Ordem de Serviços, que é filtrado, converta o relatório referente à Ordem de Serviços em PDF e anexe no Outlook. Busque o e-mail do cliente e então envie o PDF ao referido cliente.

Sei que é pedir demais, mas ainda não tenho tanta experiência em programação assim. Conto com a sua ajuda.

Suporte:

Samuel, fiz um pequeno exemplo para você testar.  Atente para os comentários no código oferecido.

Nota: Você tem que criar a pasta chamada enviados, no mesmo local em que você copiar este exemplo.

Para maiores detalhes sobre o uso do código proposto, clique AQUI e leia o meu artigo:

Segue o código utilizado no exemplo:

Private Sub btEnviarEmail_Click()
Dim strArquivo As String
Dim strLocal As String
Dim objOut As Object
Dim objmail As Object
Dim objAnexo As Object

Const olMailItem = 0
Const olByValue = 1

'---------------------------------------------
'Carregando a coleção do Outlook
'Similar ao abrir o Outlook
'---------------------------------------------
Set objOut = CreateObject("Outlook.application")
'--------------------------------------------------------------
'Abrindo o formulário de e-mail para inserir os itens de e-mail
'Similar ao clicar no botão NOVO do Outlook
'--------------------------------------------------------------
Set objmail = objOut.CreateItem(olMailItem)
'------------------------------------------------------------
'Abrindo a opção anexo
'Similar ao clicar no botão ANEXO do Outlook
'------------------------------------------------------------
Set objAnexo = objmail.Attachments
'----------------------------------------------------------------------------
'Indico o nome do arquivo PDF e o local que será gravado.
'Neste exemplo, gero os nomes dos arquivos, aproveitando o número da OS,
'ficando com o seguinte aspecto: OS00001.pdf, OS00002.pdf,...
'----------------------------------------------------------------------------
strArquivo = "OS" & Format(Me!idOs, "00000") & ".pdf"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo
'----------------------------------------------------------------------------
'Abre o relatório filtrado e oculto, de acordo com a OS selecionada.
'----------------------------------------------------------------------------
DoCmd.OpenReport "rltOs", acViewPreview, , "Idos=" & Me!idOs, acHidden
'----------------------------------------------------------------------------
'Gera o PDF do relatório, através do comando OutputTo.
'O mecanismo do Access reconhece que o relatório solicitado pelo OutputTo
'já está aberto e então, o OutputTo usará o relatório já aberto e filtrado.
'----------------------------------------------------------------------------
DoCmd.OutputTo acOutputReport, "rltos", acFormatPDF, strLocal
'---------------------------------------------
'Fecha o relatório que está oculto
'---------------------------------------------
DoCmd.Close acReport, "rltos"
'-------------------------------------------------------------
'Adiciona o arquivo PDF no anexo, capturado da pasta enviados
'-------------------------------------------------------------
objAnexo.Add strLocal, olByValue, 1

'----------------------------------------------
'Preenche o e-mail com as informações necessárias
'-----------------------------------------------
objmail.Subject = "Ordem de Serviços"
objmail.Body = "Segue anexo sua Ordem de Serviços, aberta recentemente"
objmail.To = DLookup("email", "tblClientes", "idcliente = " & Me!IdCliente)

'----------------------------------------------------------------------
'Mostra o formulário de envio de e-mail
'para enviar o e-mail automático, altere esta linha para: objmail.send
'-----------------------------------------------------------------------
objmail.Display 

'-------------------------------------------------------
'Tudo já foi entregue ao Outlook, então podemos esvaziar
'a memória do computador usada pelas variáveis objeto.
'-------------------------------------------------------
Set objAnexo = Nothing
Set objmail = Nothing
Set objOut = Nothing

End Sub

Download


 

 


1 comentário(s)

Marcelo   25/04/2018 05:26:45

Bom dia a todos do forum. Referente a esse codigo eu criei outro que e muito bom pois ele nao precisa do outlok ele envia tudo direto pelo access e e configurado os parametros da conta em um formulario. Ele gera o pdf e depois do envio ele deleta o pdf da pasta pra n fica acumulando logo mando pra vcs ai.


Envie seu comentário: