ENVIAR E-MAIL DO MS OUTLOOK VIA VB

USUARIO.EXCLUIDOS 04/10/2004 17:04:56
#44530
Olá pessoal!
Tenho uma aplicação que envia mensagens automaticas do outlook via vb. O problema é que se o outlook não estiver aberto no momento do envio o windows trava. Alguém sabe como faço para testar se o aplicativo ms outlook esta ativo antes do envio?
Obrigada
Andreia
RXGOMES 05/10/2004 12:05:37
#44688 Resposta escolhida
Tente usar desta forma eu teste com o outlook fechado e funcionou

[txt-color=blue]Private Sub[/txt-color] cmdEnviar_Click()
[txt-color=blue]Dim[/txt-color] objSession [txt-color=blue]As[/txt-color] Object
[txt-color=blue]Dim[/txt-color] objMessage [txt-color=blue]As[/txt-color] Object
[txt-color=blue]Dim[/txt-color] intArq [txt-color=blue]As Integer[/txt-color]
[txt-color=blue]Set[/txt-color] objSession = CreateObject("mapi.session")
objSession.Logon "ricardo"
[txt-color=blue]Set[/txt-color] objMessage = objSession.inbox.messages.Add
objMessage.Subject = "Relatório de Aparas"
[txt-color=blue]On Error GoTo[/txt-color] ErrEnvArquivo
[txt-color=blue]For[/txt-color] intArq = 1 [txt-color=blue]To[/txt-color] flsArquivo.ListCount
  objMessage.Attachments.Add flsArquivo.List(intArq - 1), , , "c:\" & flsArquivo.List(intArq - 1)
[txt-color=blue]Next[/txt-color]
[txt-color=blue]On Error GoTo[/txt-color] 0
[txt-color=blue]If[/txt-color] optRelatorio.Value = [txt-color=blue]True Then[/txt-color]
  objMessage.Recipients.Add "sid argen"
  objMessage.Recipients.Add "carlos latan"
  objMessage.Recipients.Add "pat baldin"
  objMessage.Recipients.Add "rob souz"
  objMessage.Recipients.Add "marcelino"
  objMessage.Recipients.Add "clau cachio"
  objMessage.Recipients.Add "joh oli"
[txt-color=blue]ElseIf[/txt-color] optReserva.Value = [txt-color=blue]True Then[/txt-color]
  objMessage.Recipients.Add "pat baldin"
  objMessage.Recipients.Add "rica gomes"
[txt-color=blue]Else[/txt-color]
  MsgBox "Opção de envio não foi selecionada", vbInformation
  [txt-color=blue]Exit Sub[/txt-color]
[txt-color=blue]End If[/txt-color]
objMessage.Recipients.Resolve
objMessage.Send
[txt-color=blue]On Error Resume Next[/txt-color]
[txt-color=blue]On Error GoTo[/txt-color] 0
[txt-color=blue]End[/txt-color]
ErrEnvArquivo:
MsgBox "Arquivo " & strArquivo & " não atachado", vbCritical, "Envio Relatório de Aparas"
[txt-color=blue]End[/txt-color]



[S85][S79]
Tópico encerrado , respostas não são mais permitidas
Voltar