Este fórum está sendo desativado

[wsousa]

Saudações Senhoras(es)!

Criei uma macro pra criar gerar alguns arquivos em PDF e fazer o envio automático destes arquivos para seus respectivos destinatários.
Sendo que preciso fazer o envio não pelo email que está cadastrado no meu outlook, mas sim por um grupo de email.
Este grupo de email é criado pelos administradores do email e é nos dada a permissão para recebermos e fazer envio de email's por ele.
Fiz alguns testes e infelizmente não consegui essa proeza.

Alguém conseguiria me ajudar?

Segue o Código:

Sub Criar_PDF()

For aa = 3 To Planilha2.Cells(1, 1).Value

Planilha1.Select

Planilha1.Cells(1, 41) = Planilha2.Cells(aa, 1)
Calculate

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Planilha1.Cells(18, 41).Value, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Next

End Sub

Sub Enviar_Email()



For ab = 3 To Planilha2.Cells(1, 1).Value

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Set OutAccount = OutApp.Session.Accounts.Item(1)

strbody = Planilha1.Cells(24, 41).Value

With OutMail
.To = Planilha2.Cells(ab, 4).Value
.CC = Planilha1.Cells(20, 41).Value
.BCC = ""
.Subject = Planilha1.Cells(23, 41).Value
.Body = strbody
.SendUsingAccount = OutAccount
.Attachments.Add (ThisWorkbook.Path & "\" & Planilha1.Cells(18, 41).Value)
.Display
End With
Next

End Sub


Infelizmente não poderei anexar a planilha, pois contém informações sigilosas da empresa.

[osvaldomp]

Olá, @wsousa ,

Coloquei na busca do sábio Google ~~~> vba enviar email sem utilizar outlook, retornou algumas dicas, veja se aproveita alguma.

https://www.google.com/search?q=vba+env ... CAc&uact=5