Boa tarde amigos,
estou com uma rotina que varre o banco de dados e envia um e-mail para cada um anexando seu relatório. A rotina está funcionando porém tem duas situações que estão pegando. Seguem abaixo:
1-Não estamos conseguindo anexar o arquivo, a rotina está correta, mas o comando de anexar está errado. Não sei para onde ir mais;
2-Quando a mensagem chega ao Outlook ele pede autorização do usuário antes de enviar o e-mail, tem como enviar os e-mails sem solicitar autorização do usuário?
Segue abaixo o código para melhor analise.
Private Sub CommandButton4_Click()
Sheets("APOIO").Select
Range("D1").Select
ultimalinha = Sheets("APOIO").Cells(Cells.Rows.Count, 4).End(xlUp).Row
If ultimalinha < 3 Then ultimalinha = 2
For x = 2 To ultimalinha
anexo = "C:UsersOZENIRDesktopUbla" & Sheets("APOIO").Range("D" & x).Value & ".xlsx"
Dim olMail As Object
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = Sheets("APOIO").Range("E" & x).Value
.Subject = "Relatório Analítico dos Bônus - " & Sheets("APOIO").Range("D" & x).Value
.Attachments.Item anexo
.Body = Sheets("APOIO").Range("K2").Value
.Send
End With
Next x
End Sub
Atenciosamente,
Alex Lacerda
[email protected]
Postado : 29/08/2013 11:05 am