Is there anyway to prevent this?
Tem outra instância do Outlook / Excel aberta. Nenhuma outra maneira de fazer isso
Exemplos ...
Isso acontece no Office 2007/2010
No Windows Explorer, clique com o botão direito no arquivo > Enviar para > Destinatário de Correio ... Isso abre uma nova janela de mensagem modal, não consigo acessar mais nada no Outlook. Então aquele pedaço de texto de outro e-mail que eu queria copiar / colar no novo e-mail, não pode.
No Excel, envie > E-mail ... Isso abre uma nova janela de mensagem modal e bloqueia o Excel e o Outlook. Portanto, as poucas células de dados que eu queria copiar / colar no corpo do email não podem.
Existe alguma maneira de evitar isso? Eu não quero que as novas janelas de mensagens sejam modais.
Is there anyway to prevent this?
Tem outra instância do Outlook / Excel aberta. Nenhuma outra maneira de fazer isso
Eu fiz o procedimento do VBA para gerar uma mensagem do Outlook . O resultado é o mesmo, mas o Outlook e o Excel não são bloqueados quando você deseja enviar a pasta de trabalho ativa. Você pode colocar o botão na Barra de Ferramentas de Acesso Rápido e chamar este procedimento a partir do módulo carregado automaticamente a partir do XLSTART .
Sub SendActiveWorkbook()
'Create Outlook Message and add Active Workbook file to it
Dim temp_file_full_name As String
Dim folder As String
Dim base As String 'File name without extension
Dim ext As String
'Create temp copy of ActiveWorkbook
With ActiveWorkbook
folder = Environ$("temp") & "\"
'Workbook name
base = .Name
'If workbook did not saved on disk, it does not have extension
If InStr(base, ".") > 0 Then
ext = Split(base, ".")(UBound(Split(base, ".")))
base = left(base, Len(base) - Len(ext) - 1)
Else
Select Case .FileFormat
Case xlExcel8: ext = "xls"
Case xlOpenXMLWorkbook: ext = "xlsx"
Case xlOpenXMLWorkbookMacroEnabled: ext = "xlsm"
Case xlExcel12: ext = "xlsb"
Case Else: ext = "xlsx"
End Select
End If
temp_file_full_name = folder & base & "." & ext
.SaveCopyAs temp_file_full_name
End With
'Create Outlook message with attachment of temp file and display it
With CreateObject("Outlook.Application").CreateItem(0)
.Subject = base
.Attachments.Add temp_file_full_name
.Display
End With
'Delete temp file. We don't need it anymore
Kill temp_file_full_name
End Sub
Mais de um trabalho do que uma resposta. Uma vez que a mensagem tenha ido Modal basta pressionar o botão Salvar na mensagem. Isso salvará o email nos seus emails de rascunho. Em seguida, feche a mensagem. Abra a mensagem de rascunho e ela não será mais modal.
Algumas perguntas sobre isso. - Este é um computador doméstico em uma rede doméstica? - Isso é um computador do governo ou da empresa em sua rede? - Se o caso for um Governo ou Indústria / Empresa, isso pode ser um problema de configuração do Windows ou um problema de corrupção do Microsoft Office. Eu literalmente fiz isso muitas vezes e nunca tive esse problema. - Talvez verificar seus recursos do sistema para garantir que não haja uma versão do Excel já aberta na memória que não apareça. A abertura na memória / fantasma excel, eu vi bloquear o acesso a um arquivo e causar todos os tipos de problemas glitchy. - Além disso, você pode querer certificar-se de que seu outlook Microsoft é a versão que está sendo usada "Se você estiver usando a versão pro do Microsoft Office". Só para ter certeza de definir a versão para o necessário. - Além disso, você já tentou de dentro do Excel com o menu drop-down "file > send to" foi alterado em versões posteriores do Microsoft Office. As versões posteriores tiraram o envio do arquivo. Você pode reativar isso usando etapas semelhantes a este " link ". Isso está usando o Microsoft office 2016.
Você pode tentar abrir o contêiner do Excel sem nenhum arquivo carregado. Então volte ao explorador e tente o mesmo processo.
Tente manter a calma e continuar. Eu sei que às vezes é difícil não ficar bravo com a Microsoft, já que muitas vezes enviam seus aplicativos sem cookies, já que eles têm milhões de testadores dispostos a relatar problemas com os produtos para eles gratuitamente.
Espero que isso ajude, tenha um ótimo dia.