VBA Enviar e-mail Outlook (e-mail compartilhado)

[raphaag]

Prezados, boa tarde!
Venho pedir orientação de vocês e desde já agradeço a colaboração.
Eu utilizo o código abaixo para enviar e-mail e está funcionando perfeitamente.
Contudo, agora surgiu a necessidade de enviar por uma terceira conta de e-mail mas essa não está listada como "conta de e-mail" porque é compartilhada e por isso o código "SendUsingAccount" não funciona. Tentei também a opção de código ".item(3)" mas não localizou a conta de e-mail compartilhada.
Alguém conseguiria me ajudar?
Obrigado.

[code]Sub Envio_Email_RG()
Dim Inicio As Integer
Inicio = 8

Enviar:

Dim Objeto_Outlook As Outlook.Application
Dim Email As Outlook.MailItem
Set Objeto_Outlook = CreateObject("Outlook.Application")
Set Email = Objeto_Outlook.CreateItem(0)
Dim CorpoTexto As String

Email.SendUsingAccount = Objeto_Outlook.Session.Accounts("contatocompartilhado@provedor.com.br")
Email.To = Cells(2, 2).Value
Email.Subject = Cells(5, 4).Value

Email.HTMLBody = _
"Olá " & Cells(2, 3).Value & "!" _
& "<br><br>" _
& Cells(5, 5).Value _
& "<br><br>" _
& "Atenciosamente, <br>" _
& Email.HTMLBody

Email.Send

Set Objeto_Outlook = Nothing
Set Email = Nothing

If Inicio > 50 Then
Inicio = Inicio + 1
Cells(2, 1).Value2 = Inicio
GoTo Enviar
End If
Cells(2, 1).Value2 = ""
MsgBox ("E-mail enviado com sucesso!"), vbInformation, ":: Controle ::"
End Sub[/code]

[NRAlbukas]

Bom dia Angelo!.

Nunca trabalhei com outlook antes. Porem tenho esta planilha pronto que ja faz isso, porem ela interage com o hotmail. Mas não ha problem... pois hotmail e o outlook são parentes. Vê se vc consegue tirar algo bom.

[raphaag]

Obrigado! Vou realizar alguns testes.