Notifications

Clear all

ERRO 440: The object does not support this method

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

6 Posts

5 Usuários

0 Reactions

1,806 Visualizações

RSS

marvini

(@marvini)

Posts: 12

Active Member

Topic starter

Pessoal, tudo tranquilo?

Tenho uma planilha com emails em uma coluna. Um loop pega a primeira Range (que contem um email) grava na variavel "EnviaPara" e essa variável será o meu destinatário. No entanto sempre a macro para na parte .Item.to = EnviarPara. Eu debugo e aperto para continuar e continua normal. Saberiam consertar isso?

Postado : 05/01/2018 3:46 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Enviarpara está declarada?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 05/01/2018 4:00 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

marvini,

Boa noite!

Anexe, aqui mesmo no fórum, seu arquivo compactado com .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 : 05/01/2018 5:20 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

O ideal é anexar conforme solicitação do Wagner, ou pelo menos coloque a rotina completa para verificar quais Variáveis estão declaradas e se estão corretas.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/01/2018 7:55 pm

marvini

(@marvini)

Posts: 12

Active Member

Topic starter

Macro para guardar "EnviarPara".

Sub MandaEmail()

Dim EnviarPara As String
EnviarPara = Sheets("email").Cells(i, 32)

Call Envia_Emails EnviarPara

...

end sub

Macro para enviar email.

Sub Envia_Emails(EnviarPara As String)

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Range(Cells(1, 1), Cells(26, 8)).Select

With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
'.Underline = xlUnderlineStyleSingle
'.ColorIndex = 3
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Columns("D:D").EntireColumn.AutoFit
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
'Format(Range("B6"), "ddmmyyyy")
'Application.CutCopyMode = False
Dia = Range("B6")
.Item.To = EnviarPara
.Item.CC = ""

...

end sub

Postado : 10/01/2018 1:03 pm