MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

    avatar
    drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Empty erro na Condição no Attachments.Add

    Mensagem  drimi em 31/10/2012, 13:03

    Bom dia!

    Sou leigo no assunto, preciso de ajuda!!!
    Pessoal por favor, preciso de ajuda, possuo uma tabela com nome, email de cada colaborador responsavel por tua area, e outras variaveis, criei o codigo para envio de um unico email para anexar varios arquivos, dependendo do colaborador ele possui até 9 arquivos outros 2, 3 e assim por diante, entao criei na tabela os campos

    arquivo1
    arquivo2
    arquivo3
    arquivo4
    arquivo5
    arquivo6
    arquivo7
    arquivo8
    arquivo9

    exemplo:

    nome email arquivo1 arquivo2 arquivo3 .....
    teste teste@teste.com.br teste1 teste2 teste3
    maria maria@maria teste10 teste4


    Porém quando no codigo no .Attachments.Add e ele nao localiza quando o espaco é vago, da erro ja tentei diversas formas mas nao consigo uma saida, alguem por favor me ajude...

    desde a agradeço.

    Sub ENVIAR()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim DB As DAO.Database
    Dim TB As DAO.Recordset
    Dim file As Variant
    Set DB = CurrentDb
    Set TB = DB.OpenRecordset("Tbl_EMAIL")
    On Error GoTo trata
    TB.MoveFirst

    Do While Not TB.EOF
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo1) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo2) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo3) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo4) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo5) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo6) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo7) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo8) & ".xls")
    'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo9) & ".xls")


    If file = "" Then
    GoTo trata
    End If

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    With OutMail
    .To = TB!email
    .Subject = "texto - " & TB!Data & " - " & TB!DEPTO

    .HTMLBody = "" & TB!nome & "

    Segue ... " & TB!mes
    .HTMLBody = .HTMLBody & "


    É importante..."
    .HTMLBody = .HTMLBody & "

    O acumulo " & TB!nova_data & "."
    .HTMLBody = .HTMLBody & "


    Atenciosamente.

    "

    'meu problema começa aqui

    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo1) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo2) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo3) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo4) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo5) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo6) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo7) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo8) & ".xls"
    .Attachments.Add "A:\Caminho da rede\" & (TB!arquivo9) & ".xls"


    .Display
    '.Send

    End With
    trata:
    Set OutMail = Nothing

    Set OutApp = Nothing

    TB.MoveNext


    Loop

    End Sub

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3534
    Registrado : 04/04/2010

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Empty Re: [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

    Mensagem  Avelino Sampaio em 31/10/2012, 13:32

    Veja se encontra uma resposta neste meu artigo:

    http://www.usandoaccess.com.br/dicas/dica8.asp?id=1#inicio

    Bom estudo!
    avatar
    drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Empty Re: [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

    Mensagem  drimi em 31/10/2012, 14:04

    Obrigado Avelino Sampaio.

    Li o link que você disponibilizou, muito legal o arquivo, mas, infelizmente não atende a minha necessidade, meu intuito é que ao apertar o PF5, ele faça tudo automatico, preenchendo o campo de e-mail, nome, colocando o texto padrão que esta em html e anexando a quantidade de arquivos atrelada a tabela, agradeço ajuda.

    Abraços
    avatar
    drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Empty Re: [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

    Mensagem  drimi em 7/11/2012, 15:33

    Boa Tarde!


    Pessoal quebrei a cabeça e consegui a resposta agradeço a todos .

    Sub ENVIAR()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim DB As DAO.Database
    Dim TB As DAO.Recordset
    Dim file As Variant

    Set DB = CurrentDb
    Set TB = DB.OpenRecordset("Tbl_EMAIL")
    On Error GoTo trata
    TB.MoveFirst



    Do While Not TB.EOF


    file = Dir("U:\Caminho da rede\" & TB!arquivo1 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo2 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo3 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo4 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo5 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo6 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo7 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo8 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo9 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo10 & ".xls")


    If file <> "" Then
    GoTo trata
    End If

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    With OutMail
    .To = TB!CD_LOGIN_RESPONSAVEL
    .Cc = TB!CD_LOGIN
    .Subject = "Extrato do Colaborador - " & TB!Data & " - " & TB!DEPTO

    .HTMLBody = TB!gestor & "

    Segue extrato de horas por colaborador sob sua gestão, dados referente ao mês de " & TB!mes
    .HTMLBody = .HTMLBody & "

    Atenciosamente.

    "


    If TB!arquivo1 <> ";" Then

    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo1 & ".xls"
    If TB!arquivo2 <> ";" Then

    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo2 & ".xls"

    If TB!arquivo3 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo3 & ".xls"

    If TB!arquivo4 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo4 & ".xls"

    If TB!arquivo5 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo5 & ".xls"

    If TB!arquivo6 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo6 & ".xls"

    If TB!arquivo7 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo7 & ".xls"

    If TB!arquivo8 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo8 & ".xls"

    If TB!arquivo9 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo9 & ".xls"

    If TB!arquivo10 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo10 & ".xls"






    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If


    .Display

    End With

    trata:
    Set OutMail = Nothing

    Set OutApp = Nothing

    TB.MoveNext


    Loop

    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Empty Re: [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

    Mensagem  JPaulo em 7/11/2012, 16:44

    Obrigado pelo retorno, será de grande ajuda a outros com a mesma duvida.

    Somente um pitaco:

    Não necessita mais do file, então limpe isso do código para ficar mais enxuto;

    file = Dir("U:\Caminho da rede\" & TB!arquivo1 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo2 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo3 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo4 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo5 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo6 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo7 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo8 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo9 & ".xls")
    file = Dir("U:\Caminho da rede\" & TB!arquivo10 & ".xls")


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Folder_announce_new Instruções SQL como utilizar...
    avatar
    drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Empty Re: [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

    Mensagem  drimi em 14/11/2012, 12:56

    JPaulo, bom dia!

    Surgiu uma nova dúvida!!! Por favor me ajude.
    Usando um trecho do código (abaixo).
    Eu defini na tabela o nome do arquivo1, arquivo2, arquivo3, e arquivo4, quando ele percorre no camihho da rede e busca o nome do arquivo confrontando-o com o nome da tabela e nao localiza da erro no código (arquivo não localizado), ou seja nao existe, há alguma forma do código verificar o arquivo1 se encontrado continua se nao encontrado (nao existe) pula para o arquivo2 e assim por diante até chegar no arquivo 4 ??? Agradeço atenção.

    If TB!arquivo1 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo1 & ".xls"

    If TB!arquivo2 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo2 & ".xls"

    If TB!arquivo3 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo3 & ".xls"

    If TB!arquivo4 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo4 & ".xls"


    Abraços

    Conteúdo patrocinado

    [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo Empty Re: [Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/12/2019, 09:47