Basole

Tente acessar as pasta chamada XLSTART e/ou STARTUP e renomeie os arquivos (se tiver), com a extensao [ .old ]. A localização das pastas depende muito da versao do win64bts. e office 64 bts. Normalmente ficam em "C:\Program Files\Microsoft Office\Office14" para o office ver > 2010 e para ver2007 -> " "C:\Program Files\Microsoft Office\Office12"

Como você nao passou > detalhes, segue um exemplo abaixo. Crie um modulo e cole a macro, e na plan1 crie tbem. uma tabela (com os dados das pessoas que vai enviar e respect. nome do arquivo), nas colunas: [a ] c/ o nome [Nome do Arquivo]; c/ o nome [Departamento](opcional); [C] c/ o nome [1º Nome]; [d] c/ o nome [sobrenome]; [E] c/ o nome [Emails];por ultimo: [ J ] c/ o nome Path (pasta onde esta o arquivo ex: C:\Users\Admin\Desktop) e preencha os dados de cada coluna. Na coluna [A] insira o nome do arquivo sem sua extensão. Sub Envia_Email_CAnexo() ' fonte: http://www.rondebruin.nl/win/s1/div/mail1.htm Dim OutApp As Object Dim OutMail As Object Dim ws As Worksheet: Set ws = Sheets("plan1") Dim enviad As String enviad = 0 'Path do anexo ao email a ser enviado Set Rng = ws.Range(Range("J2"), ws.Range("J" & Rows.Count).End(xlUp)) For Each cell In Rng Rw = cell.Row Path = cell.Value If Path <> "" Then 'Obtem a informacao do path Dte = Right(Path, Len(Path) - InStrRev(Path, "\")) 'obtem o nome do arquivo na (Coluna A) strNomeArq = cell.Offset(0, -9).Value ' endereco de Email ToNome = cell.Offset(0, -5).Value ccTo = RecpList 'Obtem o nome FirstNme = cell.Offset(0, -7).Value Surname = cell.Offset(0, -6).Value 'faz loop através do caminho dos arquivos ver se existe ClientFile = Dir(Path & "\*.*") Do While ClientFile <> "" If InStr(ClientFile, strNomeArq) > 0 Then AttachFile = Path & "\" & ClientFile MailBody = "Prezado " & FirstNme & vbNewLine & vbNewLine _ & "Segue em anexo uma cópia do seu relatório de analise de custo de " & Dte _ & vbNewLine & vbNewLine _ & "Nome do Arquivo: " & cell.Offset(0, -9).Value _ & vbNewLine & _ "Departamento: " & cell.Offset(0, -8).Value _ & vbNewLine & _ "Gerencia do Centro de Custo: " & FirstNme & " " & Surname _ & vbNewLine & _ "Saudaçoes" & _ Signature '(asinatura) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(o) With OutMail .Subject = "Relatório Centro de custo de - " & Dte .To = ToNome .cc = ccTo .Body = MailBody .Attachments.Add (AttachFile) '.Display .Send enviad = enviad + 1 End With Set OutMail = Nothing Set OutApp = Nothing RecpList = "" End If ClientFile = Dir Loop End If Next If enviad = 0 Then MsgBox "Nenhum email enviado", 64, "AVISO" Else MsgBox enviad & " enviados da sua lista de emails!", 0, "SUCESSO" End If End Sub

Corso, seja bem vindo ao forum ! Sim è possivel, mas deseja enviar por que meios ? por e-mail? outlook ou servidor direto (ex. gmail)? ou outra opcao?

Clodoaldo teixeira, Lamento em dizer, mas voce baixou o arquivo ERRADO (o link que coloquei é apenas uma referencia do arquivo original de 2002 e de seus autores que se chama clientes.xls) Repare na imagem que você postou, que o nome do arquivo que tentou abrir é diferente do arquvio que anexei zipado (GeraRecibo.xlsm). Click no link abaixo para baixar (diretamente) a versao que adaptei para atender suas necessidades e foi testado para rodar com office 64bts. (Acho que advinhei , pois pela imagem deu pra detectar que a versao que está usando é 64 bts.) http://forum.clubedohardware.com.br/index.php?app=core&module=attach&section=attach&attach_id=82378

Este topico tem 2 resposta, voce esta se referindo a qual delas? Caso se ref. a minha proposta, nao sei se reparou, no formulario tem a opção de escolher o codigo cadastrado do favorecido. Caso esteja se referindo em selecionar pelo nome? Sim é possivel. Seria isso?

Segue uma outra sugestão: * Planilha gerarecibo (link abaixo da versao original), adaptada a sua necessidade.-> Sem uso do Extens32.dll (inserida na ver. original) e por esse motivo 'roda' tbem. no office 64 bits. http://info.abril.com.br/downloads/windows/planilha-geradora-de-recibo Funcionlidades: voce pode cadastrar os dados dos favorecidos na Plan(Clientes) e seleciona-los no formulario . O nome do favorecido (no caso cosidere a coluna [NomeCliente], da plan[Clientes]), e imprimir com os dados selecionados ou altera-los e imprimir o recibo * Não entendi a respeito do conteudo as referencias inseridos no seu lay-out (docx), por isso nao inseri nehuma variavel Altere: O logotipo da sua empresa na plan[Recibo] e na plan[clientes] celulas (O2 e P2) o nome da sua cidade e o nome da sua empresa, respectivamente. GeraRecibos.zip

Segue um exemplo, veja se consegue adaptar ao q precisa. Os as referencias e creditos do autor estão no codigo. CTRL_L_EM_VBA.zip