Ir ao conteúdo
  • Cadastre-se
Kelvim

Vba excel enviar email

Posts recomendados

Boa tarde

 

Eu tenho um código que envia e-mail através de VBA EXCEL pelo Outlook.

porém quando chega em um numero X de vezes que ele está repetindo ele apresenta erro, abaixo segue o print.

Não existe nenhuma informação errada.
Se eu envio quantidades menores ele envia.

Quando envio mais quantidade ele apresenta erro.


Gostaria de saber o que poderia ser.

Sub enviar_planilha_corpo_email()
Dim QTD As Variant
Dim pdv(1 To 50) As Variant
Dim resultado As VbMsgBoxResult
    
    For i = 1 To 50
    pdv(i) = Sheets("PDV").Cells(i, 1)
    Next
resultado = MsgBox("Enviar email?", vbYesNo, "Enviar email")
If resultado = vbYes Then
QTD = InputBox("Informe a quantida de Fornecedores")
    
 For i = 1 To QTD
    
    Application.ScreenUpdating = False
    
    Sheets("MENSAG").Select
    Range("A1", "O70").Select
    
    Selection.Copy
    
 
    ActiveWorkbook.EnvelopeVisible = True
'On Error Resume Next
    With ActiveSheet.MailEnvelope
        .Introduction = "Caro" & " " & Sheets("PDV").Cells(i, 1)
        .Item.To = Sheets("PDV").Cells(i, 2)
        '.Item.cc = ""
        .Item.Subject = "COMUNICADO" & "  " & Date
        .Item.Send
    End With
Application.ScreenUpdating = True
Next
Else
End If
End Sub

erro - vba.png

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 17/06/2016 às 15:44, Kelvim disse:

Não existe nenhuma informação errada.
Se eu envio quantidades menores ele envia.

Quando envio mais quantidade ele apresenta erro.

 

 

Eu não uso o outlook e não tem como testar.

Mas se não há erros com o codigo, isso pode estar ocorrendo, porque o provedor de emails está classificando como span, na medida que voce envia os emails em lotes. 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite

 

Eu consegui resolver o problema.

 

Eu fiz um código para receber através de vetor em uma variável tipo public 

 

Depois apenas utilizei na hora de enviar o e-mail.

 

Segue abaixo.


 

Public ender_email(1 To 50) As Variant
Public ender_email_cop(1 To 50) As Variant
Public PDV(1 To 50) As Variant
Sub enderecos()
        i = 1
        Do While Sheets("PDV").Cells(i, 2).Value <> Empty
        PDV(i) = Sheets("PDV").Cells(i, 2)
        ender_email(i) = Sheets("PDV").Cells(i, 3)
        ender_email_cop(i) = Sheets("PDV").Cells(i, 5)
        i = i + 1
        Loop
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Este tópico está parado há muito tempo. Certifique-se que a sua mensagem tem a ver com o tema sendo discutido. Obrigado.

Junte-se à conversa

Você pode postar agora e cadastrar-se depois. Se você tem uma conta, faça o login para postar.

Visitante
Responder

×   Você colou conteúdo com formatação.   Restore formatting

  Só é possível ter até 75 emoticons.

×   O link foi automaticamente convertido para mostrar o conteúdo.   Clique aqui para mostrá-lo como link comum

×   Seu texto anterior foi restaurado.   Limpar o editor

×   You cannot paste images directly. Upload or insert images from URL.






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

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!