Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Como enviar PDF pel...
 
Notifications
Clear all

Como enviar PDF pelo Thunderbird pelo visual basic

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por Wagner Morel 8 anos atrás
2 Posts
2 Usuários
0 Reactions
962 Visualizações
RSS
 reviversc
(@reviversc)
Posts: 0
New 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: 4063
Famed 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
 
Postado : 04/05/2016 11:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico