Notifications
Clear all

Anexar arquivo no envio de mensagem via Excel VBA x Outlook

2 Posts
2 Usuários
0 Reactions
1,964 Visualizações
chook
(@chook)
Posts: 197
Estimable Member
Topic starter
 

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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Enquanto isso..
http://www.rondebruin.nl/mail/prevent.htm
http://msdn.microsoft.com/en-us/library ... 69553.aspx
Att

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

 
Postado : 29/08/2013 5:41 pm