none
enviar arquivo anexo com o Ms Outlook fechado!! RRS feed

  • Pergunta

  • Preciso enviar arquivos de pastas diretamente por e-mail, porém isso tem que ser feito com o Microsoft Outlook Fechado, eu utilizava o Outlook Express e funcionava, agora com o Microsoft Outlook 2010 a mensagem não sai, fica parada na caixa de saída até que eu execute o Microsoft Outlook 2010.

    Há algo que eu possa fazer para enviar os e-mails diretamente sem precisar abrir Ms Outlook?

    Necessito disso, pois aki na empresa utilizamos TS com o Sistema ERP da empresa abrindo exclusivamente, e os relatórios do Sistema podem ser enviados por e-mail, mais os usuários não tem acesso para abrir programa algum, somente o Sistema da Empresa.

    Obrigado

    Rodrigo

    sexta-feira, 19 de outubro de 2012 14:57

Respostas

  • Olá Rodrigo, bom dia.

    De forma nativa o Office 2010 até onde consegui testar aqui só permite enviar emails realmente quando o programa está devidamente aberto.

    A solução que vi foi disponibilizada por Jennifer Zhan e a solução final foi criar uma macro que execute essa operação.

    O código utilizado seria este:

     Private Sub CommandButton10_Click()
     
     Dim OutApp As Object
     Dim OutMail As Object
     Dim strbody As String

     Set OutApp = CreateObject("Outlook.Application")
     OutApp.Session.Logon
     Set OutMail = OutApp.CreateItem(0)

     On Error Resume Next
     With OutMail
      .To = "me@here.com"
      .CC = ""
      .BCC = ""
      .Subject = "The Filefor #" & Chr(32) & Range("H4") & " has been updated."
      .Body = "Please review." & vbCrLf & vbCrLf & ActiveWorkbook.FullName
      .Send 'or use .Display
      .ReadReceiptRequested = True
     End With
     On Error GoTo 0

     Set OutMail = Nothing
     Set OutApp = Nothing
     
     Dim Msg, Style, Title
      Msg = "E-mail has been sent " & Chr(13) & Chr(10) & "Press OK to continue."
      Style = vbOKOnly + vbInformation
      Title = "Open Issues List"
      Response = MsgBox(Msg, Style, Title, Help, Ctxt)

    Espero ter ajudado.


    Hezequias Vasconcelos

    segunda-feira, 22 de outubro de 2012 12:24
    Moderador

Todas as Respostas

  • Olá Rodrigo, bom dia.

    De forma nativa o Office 2010 até onde consegui testar aqui só permite enviar emails realmente quando o programa está devidamente aberto.

    A solução que vi foi disponibilizada por Jennifer Zhan e a solução final foi criar uma macro que execute essa operação.

    O código utilizado seria este:

     Private Sub CommandButton10_Click()
     
     Dim OutApp As Object
     Dim OutMail As Object
     Dim strbody As String

     Set OutApp = CreateObject("Outlook.Application")
     OutApp.Session.Logon
     Set OutMail = OutApp.CreateItem(0)

     On Error Resume Next
     With OutMail
      .To = "me@here.com"
      .CC = ""
      .BCC = ""
      .Subject = "The Filefor #" & Chr(32) & Range("H4") & " has been updated."
      .Body = "Please review." & vbCrLf & vbCrLf & ActiveWorkbook.FullName
      .Send 'or use .Display
      .ReadReceiptRequested = True
     End With
     On Error GoTo 0

     Set OutMail = Nothing
     Set OutApp = Nothing
     
     Dim Msg, Style, Title
      Msg = "E-mail has been sent " & Chr(13) & Chr(10) & "Press OK to continue."
      Style = vbOKOnly + vbInformation
      Title = "Open Issues List"
      Response = MsgBox(Msg, Style, Title, Help, Ctxt)

    Espero ter ajudado.


    Hezequias Vasconcelos

    segunda-feira, 22 de outubro de 2012 12:24
    Moderador
  • Rodrigao, a dica do amigo Hezequias lhe ajudou?

    Diego Piffaretti- www.mundotecnologico.net

    terça-feira, 23 de outubro de 2012 11:45
  • Rodrigão, bom dia.

    Alguma novidade?

    Conseguiu resolver o problema?


    Hezequias Vasconcelos

    • Sugerido como Resposta Maria Inês segunda-feira, 19 de novembro de 2012 15:38
    • Não Sugerido como Resposta Maria Inês segunda-feira, 19 de novembro de 2012 15:38
    segunda-feira, 29 de outubro de 2012 15:29
    Moderador
  • Rodrigão, bom dia.

    Alguma novidade?

    Conseguiu resolver o problema?


    Hezequias Vasconcelos


        Bom dia, estou com o mesmo problema, preciso enviar email sem anexo do programa grafic works com o outlook fechado e não consigo a opção para configurar.
    segunda-feira, 19 de novembro de 2012 15:40
  • Olá Maria Inês, boa tarde.

    O Outlook 2010 não possui nenhum tipo de integração com este produto.

    Assim seria necessário desenvolver alguma aplicação que atenda a esta necessidade ou tentar verificar com o fabricante do produto Grafic Works.

    Procurando na internet verifiquei que a Grafic Works já disponibiliza em seu site o envio de emails para contatos, sugestões e etc, para isso acesse:

    http://thegraphicworks.com/contact/

    Espero ter ajudado.


    Hezequias Vasconcelos

    segunda-feira, 19 de novembro de 2012 16:09
    Moderador