Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por andriessen
#61526
Boa tarde!
Estou usando o codigo abaixo e esta funcionando funcionando mas queria saber como escolher a conta que vai enviar.

Sub EnviarComunicadosProp()

Linha = 2
While Cells(Linha, 1) <> ""
If Cells(Linha, 7) = "" Then


'Set OutAccount = Outlook.Account(1)


Set objeto_outlook = CreateObject("Outlook.Application")
Set dEmail = objeto_outlook.CreateItem(0)
Set OutAccount = dEmail.Session.Accounts.Item(2)
dEmail.display

dEmail.To = Cells(Linha, 3).Value
'dEmail.BCC = "frank@standbygeradores.com.br"
dEmail.Subject = "Teste!"

dEmail.Body = " " & Cells(1, 28).Value & " " & Cells(Linha, 2).Value & "!" & vbNewLine & vbNewLine _
& Cells(1, 11).Value & vbNewLine & vbNewLine _
& "Atenciosamente," & vbNewLine & vbNewLine & Cells(2, 11).Value

dEmail.Attachments.Add (ThisWorkbook.Path & "\" & Range("k4"))
dEmail.Send

Cells(Linha, 7).Value = Now()
End If
Linha = Linha + 1

Wend
MsgBox "Mensagens enviadas!"
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


End Sub


Obrigado

De fato, fui verificar e o que dizem foi o que o a[…]

Ficar com o especto do que manualmente fiz na […]

Boa Noite estou tentando criar um gráfico d[…]

MACRO COM PLANILHA BLOQUEADA

Ola, uma sugestão é colocar essas d[…]

Boa noite!! Alguém sabe como bloquear uma […]

Boa noite!! Alguém sabe ocultar as f&oacut[…]

Olá, Geneci. Na planilha você coloco[…]

@MaxViana ! Olá, tentei fazer utilizan[…]