Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
paulocezarpicos

Enviar Email pelo EXCEL

Recommended Posts

Galera,

Estou precisando da ajuda de vocês. Estou usando uma planilha que envia um arquivo via email direto do EXCEL, só que quando estou usando uma maquina nova (DELL), Office 2016, funciona beleza, mas quando tento usar a mesma planilha numa maquina antiga (HP) aparece o seguinte erro: ERRO EM TEMPO DE EXECUÇÃO '-2147220973(80040213)': FALHA NA CONEXÃO DO TRANSPORTE COM SERVIDOR.

 

Agradeceria muito se alguém me desse uma luz.

 

Obs.: planilha em anexo.

 

Paulo Cezar.

 

A seguir a formula que estou usando:

 

Function EnviaEmail()

' Progress Blips
'
    Dim intIndex As Integer
    Dim sngPercent As Single
    Dim intMax As Integer
    
    intMax = 60
    For intIndex = 1 To intMax
        sngPercent = intIndex / intMax
        ProgressStyle5 sngPercent
        ProgressStyle6 sngPercent
        DoEvents
     
        Sleep 60
    Next


    Dim iMsg, iConf, Flds, nome, schema, SendEmailGmail
    nome = [D1].Value & ".pdf"
    'Seta as variáveis, lembrando que o objeto Microsoft CDO deverá estar habilitado em Ferramentas->Referências->Microsoft CDO for Windows 2000 Library
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    
    'Configura o componente de envio de email
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.item(schema & "sendusing") = 2
    'Configura o smtp
    Flds.item(schema & "smtpserver") = "smtp.gmail.com"
    'Configura a porta de envio de email
    Flds.item(schema & "smtpserverport") = 465
    Flds.item(schema & "smtpauthenticate") = 1
    'Configura o email do remetente
    Flds.item(schema & "sendusername") = "enviodetrafos@gmail.com"
    'Configura a senha do email remetente
    Flds.item(schema & "sendpassword") = "picos123"
    Flds.item(schema & "smtpusessl") = 1
    Flds.Update
 
    With iMsg
        'Email do destinatário
        
        .To = Sheets("Dados").Range("G3").Value    'EMAIL DO DESTINATÁRIO

        'Seu email
        .From = "enviodetrafos@gmail.com"
        'Título do email
        .Subject = "Envio de TRAFOS QUEIMADOS " & Sheets("formulario").Range("T74").Value & " - " & Sheets("formulario").Range("T75").Value
        'Mensagem do e-mail, você pode enviar formatado em HTML
        .HTMLBody = "Paulo Cézar, em anexo estamos enviando FICHA de TRAFO QUEIMADO de " & Sheets("formulario").Range("T74").Value & " - " & Sheets("formulario").Range("T75").Value
        'Seu nome ou apelido
        .Sender = "Teste"
        'Nome da sua organização
        .Organization = "Empresa Teste"
        'email de responder para
        .ReplyTo = "enviodetrafos@gmail.com"
        'Anexo a ser enviado na mensagem
        .AddAttachment ("c:\TRAFOS SUBSTITUIDOS\TRAFOS\" & Sheets("Formulario").Range("T74").Value & ".pdf")
        'Passa a configuração para o objeto CDO
        Set .Configuration = iConf
        'Envia o email
        SendEmailGmail = .Send
    End With
 
    'Limpa as variáveis
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
    
Sheets("Banco de Dados").Select


End Function
 

Cadastramento e Envio de TRAFOS Substituidos.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×