Boa tarde galera.
Bem tenho este código que peguei com o Avelino e utilizo para enviar e-mail de Pedido de Compras, está funcionando perfeito, só que gostaria de enviar este e-mail direto, sem passar pelo Outlook, será que poderiam me ajudar?
Saudações.
Bem tenho este código que peguei com o Avelino e utilizo para enviar e-mail de Pedido de Compras, está funcionando perfeito, só que gostaria de enviar este e-mail direto, sem passar pelo Outlook, será que poderiam me ajudar?
Saudações.
- Código:
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 email para inserir os itens de email
'Similar ao clicar no botão NOVO do Outlook
'------------------------------------------------------------
Set objMail = objOut.CreateItem(olMailItem)
'Passando o E-mail do Fornecedor para o destinatário da mensagem
'-----------------------------------------------------------------------
objMail.To = Me.Txt_Fornecedor_Email 'destinatário
'Passando o Assunto do E-mail para a mensagem
'---------------------------------------------------------------
objMail.Subject = "GRUÇAI - PEDIDO Nº " & (Me!Número_Pedido_Gerado) & "." 'destinatário
'------------------------------------------------------------
'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
'O local que escolhi para gravar os arquivos de pdf gerados
'é na pasta enviados, aonde se encontra o aplicativo.
'Neste exemplo, gero os nomes dos arquivos, aproveitando o número exclusivo
'do cliente. Então os arquivos vão ficar com o aspecto: rlt1.pdf, rlt2.pdf, ...
'É claro que vc poderá gerar o nome que achar mais conveniente.
'---------------------------------------------------------------------------------
strArquivo = "GRUÇAI - PEDIDO Nº " & (Me!Número_Pedido_Gerado) & ".pdf"
strLocal = CurrentProject.path & "\enviados\" & strArquivo
'Salvando alterações no registro
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
'----------------------------------------------------------------------------
'Abre o relatório filtrado e oculto de acordo com o cliente selecionado.
'----------------------------------------------------------------------------
DoCmd.OpenReport "2-PEDIDO_COMPRA_PRODUTOS_GC", acViewPreview, , "Número_Pedido = " & Me!Número_Pedido, acHidden
'----------------------------------------------------------------------------------------
'gero 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, "2-PEDIDO_COMPRA_PRODUTOS_GC", acFormatPDF, strLocal
'-------------------------------------------
'fecha o relatório clientes que está oculto
'-------------------------------------------
DoCmd.Close acReport, "2-PEDIDO_COMPRA_PRODUTOS_GC"
'--------------------------------------------------------
'adiciona o arquivo pdf no anexo
'-------------------------------------------------------
objAnexo.Add strLocal, olByValue, 1
'-----------------------------------------------------------------
'Mostra a tela de sáida de email que abrimos
'-----------------------------------------------------------------
objMail.Display
'-------------------------------------------------------
'Tudo já foi entregue ao outlook, então podemos esvaziar
'a memoria do computador usada pelas variáveis
'-------------------------------------------------------
Set objAnexo = Nothing
Set objMail = Nothing
Set objOut = Nothing