O codigo do erro (7063) pelo que sei nao é documentado no vba; mas aparentemente refere-se a tentativa de utilização de um database (ou arquivo)ainda não aberto.
A extensão .nsf refere-se (normalmente) a um arquivo de som base nintendo (Nintendo Entertainment System Sound Format);
então crieo eu (o famoso achometro) seu codigo tenta ler/acessar um arquivo que não está disponivel/pronto

Boa noite!!

O Reinaldo está correto, veja mais em
http://www.registryquick.net/runtime/Fi ... -1894.html

Att

Boa noite!!

O Reinaldo está correto, veja mais em
http://www.registryquick.net/runtime/Fi ... -1894.html

Att

Pois é meus caros, e o mais engraçado é que este erro aparece apenas em uma máquina rsss...segue o código caso alguém queira dar uma olhada...este código salva o arquivo atual em outro diretório e manda um email avisando que tem conta nova no diretório...o Reinaldo ja conhece um pouco deste código é aquele que eu quero deletar o arquivo antigo rsss) ainda estamos trabalhando nele...abraço a todos

Faltou o codigo.Se estiver completo fica mais facil tentar analisar.
Estranho foi a extensão do arquivo reportado (.nsf), esse não seria um arquivo que a sua administração de rede cria para "Gerenciar" as permissões de acesso??
Nem sempre o erro reportado/local de "stop" refere-se exatamente à aquele ponto. Qto ao que mencionou, sobre a deleção do arquivo, nos testes que fiz funcionou, porem não tenho condições de testar em rede. Se voce ou a pessoa que estiver executando o arquivo/codigo tiver permissão para incluir/alterar/excluir arquivos, deveria funcionar.

Faltou o codigo.Se estiver completo fica mais facil tentar analisar.
Estranho foi a extensão do arquivo reportado (.nsf), esse não seria um arquivo que a sua administração de rede cria para "Gerenciar" as permissões de acesso??
Nem sempre o erro reportado/local de "stop" refere-se exatamente à aquele ponto. Qto ao que mencionou, sobre a deleção do arquivo, nos testes que fiz funcionou, porem não tenho condições de testar em rede. Se voce ou a pessoa que estiver executando o arquivo/codigo tiver permissão para incluir/alterar/excluir arquivos, deveria funcionar.

rssss agora vai o código kkk..obrigado pela atenção...

Private Sub CommandButton2_Click()

Dim resultado As VbMsgBoxResult
resultado = MsgBox("Você está com o lotus notes aberto?", vbYesNo, "Salvar e enviar notes")
If resultado = vbYes Then

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"\BRGABS001G_DFIN_CTRL0236721Projetos_VBACadastro de contas contábeis1.Contas para incluir no ERP" & Cells(3, 10) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True

Range("j4").Select
Selection.Copy
Range("j4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")

Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
Dim recip(25) As Variant
recip(0) = "[email protected]"
'recip(2) = "[email protected]"
'recip(3) = "[email protected]"
'recip(4) = "[email protected]"
'recip(5) = "[email protected]"

MailDoc.sendto = recip

MailDoc.Subject = "\BRGABS001G_DFIN_CTRL0236721Projetos_VBACadastro de contas contábeis1.Contas para incluir no ERP" & Cells(3, 10) & ".xls"
BodyText = "Segue conta acima para inclusão no ERP"
MailDoc.Body = BodyText

'MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it

'caminho = "\BRGABS001G_DFIN_CTRLContabilidade e ReportsCadastro de contas contábeis1.Contas para incluir no ERP" & Cells(3, 10) & ".xls"
'Set AttachME = MailDoc.CreateRichTextItem("Attachment")
'Set EmbedObj = AttachME.EmbedObject(1454, "", caminho, "Attachment")

'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items FOLDER
MailDoc.Send 0, Recipient
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing

ActiveWorkbook.Close

Else
resultado = MsgBox("Favor abrir e depois salvar novamente?", vbOKOnly, "Salvar e enviar notes")

End If

End Sub

http://www-01.ibm.com/support/docview.w ... wg21203997

Sei que não estão trabalhando com Java, mas pode servir para dar alguma luz.

Att.,

Agora entendi que o reinaldo.nsf e um banco do Notes (NSF (Notes Storage Facility)), então creio que nesse equipamento que dá o erro o banco do notes não está disponivel (replicado); é preciso primeiro abrir esse db ou referenciar-se ao db notes disponivel nesse equipamento.

Agora entendi que o reinaldo.nsf e um banco do Notes (NSF (Notes Storage Facility)), então creio que nesse equipamento que dá o erro o banco do notes não está disponivel (replicado); é preciso primeiro abrir esse db ou referenciar-se ao db notes disponivel nesse equipamento.

Reinaldo...tem como explicar mais fácil kkk...desculpe a ignorancia

Bom eu não utilzo o Notes, porem pelo que vi, pode ser:
para acessar sua pasta de arquivos (o tal do reinaldo.nsf) em um determinado computador, o administrador de acesso (normalmente o pessoal de ti da empresa) precisa "liberar" esse acesso ou seja compartilhar ( mas o termo no notes acho que é replicar) esse arquivo.
ou
Nesse micro, a "abertura" da sua pasta de arquivos e mais lenta(não sei o motivo, mas pode ser um nó na rede), e a rotina avança sem o arquivo estar disponivel então gera o erro.