Como enviar PDF pelo Thunderbird pelo visual basic

2024 - Fórmulas Avançadas - Funções Microsoft Excel

Post Recente por Wagner Morel 9 anos atrás

2 Posts

2 Usuários

0 Reactions

968 Visualizações

RSS

reviversc

(@reviversc)

Posts: 16

Active Member

Topic starter

Boa tarde pessoal.
Eu estava usando o Outlook para fazer isso, porém ele ta com problemas.. .então decidi usar o Thunderbird.

Mas não sei como alterar o código e fazer com que o VB abra o Thunderbird ao invés do Outlook.

Segue o código abaixo

Sub salvar_enviar_PDF()

'SALVA O ARQUIVO EM PDF NA PASTA ESCOLHIDA COM O NOME ESCOLHIDO DE UMA CELULA OU MAIS

Dim nome As String
Dim endereco As String

'SÃO OS DESTINATARIOS DE EMAIL MAIS O NOME DO ARQUIVO MAIS O NUMERO DO PEDIDO NO MEU CASO

endereco = "" & Sheets("Plan1").Range("M2").Value & ";" & Sheets("Plan1").Range("M1").Value & ";" & Sheets("Plan1").Range("K2").Value & ";"

'E O LOCAL ONDE SALVA O ARQUIVO MAIS O NOME DO ARQUIVO E O NUMERO DO PEDIDO

nome = "C:UsersServerDesktopROMANEIO LAVACAOPDF" & Range("=Plan2!A1").Value & "-" & Range("H5").Value & ".pdf"

'SAO AS SELECIONADAS QUE APARECERAM NO PDF

ActiveSheet.Range("a1:h17").ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome

'ENVIA O ARQUIVO SALVO PARA OS ENDEREÇOS QUE voce ESCOLHER MAIS O ENDEREÇO DE UMA CELULA NO MEU CASO

Set myActiveSheet = CreateObject("Outlook.Application")
Set objMail = myActiveSheet.CreateItem(olMailItem)
Set myAttachments = objMail.Attachments

With objMail
.To = endereco
.Subject = "ROMANEIO" & " " & Range("M15").Value & " " & Range("H5").Value
.HTMLBody = "Favor agendar a coleta para o pedido abaixo. *** ATENÇÃO PARA AS PEÇAS O.E. COLOCAR MAIS AMACIANTE CONFORME COMBINADO"
myAttachments.Add nome
.Display

End With

End Sub

Postado : 04/05/2016 10:36 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

reviversc,

Boa tarde!

Segue um exemplo que envia email, com anexo, sem utilizar o Outlook. Veja que as linhas de código abaixo precisam ser configuradas de acordo com o serviço de correio que a sua empresa utiliza, pois essas abaixo são da empresa que trabalho. Caso não sabia, converse com seu pessoal de TI para obter os parâmetros de configuração de remessa de mensagens. Do contrário, não irá funcionar:

    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "correio.intra.vtn"
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

Enviar E-mail do Excel sem utilizar o Outlook.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 04/05/2016 11:20 am