Enviado arquivo.xls via notes

[reinaldo.silva]

Caros mais uma vez estamos ai...

Eu uso um código para enviar mensagem via excel, tipo assim... quando eu cadastro uma conta, tenho um botão que envia automaticamente uma mensagem via lotus notes para um grupo de pessoas...acontece que ... quando o notes esta fechado a tela fica travada até aparecer o erro "7063", eu gostaria de achar uma solução para que quando o notes estiver fechado me aparece uma mensagem dizendo para abrir o notes e na sequecia cotinuar os passos...


Eu tentei usar o código ErrHandler: mas não consigo acertar ...

Segue o código que estou usando para análise, e mais uma vez obrigado

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

ErrHandler:
If Err = 7063 Then
MsgBox "O arquivo está aberto.", vbCritical
Else
MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, _
vbCritical, "Módulo1_TesteMover"
End If


'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
Dim recip(25) As Variant
recip(0) = "reinaldo.silva@electrolux.com.br"
'recip(1) = "valeria.cavassin@electrolux.com.br"
'recip(4) = "marcelo.grilo@electrolux.com.br"
'recip(5) = "bruno.scotti@electrolux.com.br"
'recip(6) = "ronaldo.osik@electrolux.com.br"
'recip(7) = "nicole.h.dziewulski@electrolux.com.br"
'recip(8) = "marislani.oliveira@electrolux.com.br"
'recip(9) = "jose-renato.correa@electrolux.com.br"
'recip(10) = "lucas.neves@electrolux.com.br"
'recip(11) = "helio-de.sousa@electrolux.com.br"




MailDoc.sendto = recip

MailDoc.Subject = "G:\Contabilidade e Reports\Cadastro de contas contábeis\2.Contas incluidas no ERP\" & Cells(3, 10) & ".xls"
BodyText = "Conta cadastrada no ERP. Favor atualizar suas UDCs no ERP"
MailDoc.Body = BodyText



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

'caminho = "\\BRGABS001\G_DFIN_CTRL\Contabilidade e Reports\Cadastro de contas contábeis\2.Contas incluidas 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

Me.Hide


End Sub