Envio de e-mail após carga de QVW no cliente.......

[#1]

Senhores,

eu preciso muito saber como fazer com que ao final de uma carga de um QVW que encontra-se em meu cliente, um e-mail seja enviado para mim. Meu objetivo é colocar neste e-mail o conteúdo da versão que esta sendo carregada em produção no meu cliente. O local da carga em meu cliente possui internet.

               Desde já agradeço!

[pablolabbe]

Olá Eurico,

  Cliente tem Publisher ? Se ele tiver, é possível configurar um email de alerta no serviço "Distribution Services".

Pablo Labbe

[Clever_Anjos]

1o passo: implemente uma macro que envia email (tem vários exemplos por aqui)

2o passo: no seu script utilize o comando CALL <nomedasuasub>

[Clever_Anjos]

Uma alternativa é utilizar um aplicativo de linha de comando que envia email (pode ser o mailsend muquit/mailsend · GitHub)

No seu script chame esse aplicativo utilizando um EXECUTE

[pablolabbe]

Assim esta solução funcionaria em ambientes com ou sem publisher. Boa !

[#6]

Pessoal,

ainda não consegui realizar o que preciso, alguém teria um QVW onde após a carga um e-mail seja enviado para disponibilizar?! Se alguém puder me ajudar neste sentido eu ficarei muito grato mesmo!

[EduardoAlexandredeFrancisco]

Eurico, eu tenho algo parecido com o sua necessidade;

Porém depois que termina de fazer a carga, eu clico em um botão eo QV dispara +- 70 e-mail

Eu uso a macro abaixo, e o botão chama essa macro

Sub GerarEmail_Sistema()

  ''verifica se é modelo PR

  TipoEnvio = ActiveDocument.Variables("vTipoEnvio").GetContent.String

  Set myApp = CreateObject ("Outlook.Application")

  Set myMessage = myApp.CreateItem(olMailItem)

  'HTMLFormat

  myMessage.BodyFormat =3'Outlook.OlBodyFormat.olFormatRichText

  'retorna o Assunto que será enviado

  AssuntoEmail = ActiveDocument.Variables("vAssuntoEmail").GetContent.String

  'mostra o titulo no email

  myMessage.Subject = AssuntoEmail

' ActiveDocument.GetApplication.MsgBox(AssuntoEmail)

  If AssuntoEmail <> "-" then

  'destinatario

  strTo = ActiveDocument.Variables("vDestinatario").GetContent.String

  myMessage.To = strTo

  'destinatarioCC

  strCC = ActiveDocument.Variables("vDestinatarioCC").GetContent.String

  myMessage.CC = strCC

  Set myInspector = myMessage.GetInspector 'this inserts signature to e-mail

  Set myDoc = myInspector.WordEditor

  ActiveDocument.GetSheetObject("CH_TotalDia_Rotulo").CopyTableToClipboard true

  myDoc.Range(myDoc.Characters.Count-1, myDoc.Characters.Count).Paste

  'Mostrar Email

  myMessage.Display

  'Enviar Email

  myMessage.Send

  END IF

  Set myMessage = Nothing

  Set myApp = Nothing

  Set myInspector = Nothing

  Set myDoc = Nothing

END SUB