Função que abre o Outlook via função do AdvPL

Função que abre o Outlook via função do AdvPL

Olá pessoal…

Hoje vou mostrar uma função desenvolvida para abrir uma nova mensagem do Outlook via AdvPL.

AdvPL
AdvPL

Essa função serve, caso você queira facilitar para algum usuário digitar algum e-mail para vendedor, ou para algum cliente, onde você já tem o campo de e-Mail.

Basta passar o e-Mail para essa função, que ele abre a tela com uma nova mensagem.

Abaixo o código fonte desenvolvido.

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zOutlook
Função que abre o outlook para escrever um novo e-mail
@type function
@author Atilio
@since 14/04/2017
@version 1.0
	@param cEmail, character, Endereço de e-Mail
	@example
	u_zOutlook("suporte@terminaldeinformacao.com")
	u_zOutlook(SA3->A3_EMAIL)
	@obs Caso queira ver a opção de adicionar assunto ou corpo do e-Mail, veja
	https://support.microsoft.com/pt-br/help/287573/how-to-use-command-line-switches-to-create-a-pre-addressed-e-mail-message-in-outlook
/*/

User Function zOutlook(cEmail)
	Local cExecute := "/c ipm.note /m "+Alltrim(cEmail)
	Default cEmail := ""
	
	//Se tiver email, abre o outlook
	If !Empty(Alltrim(cEmail))
		ShellExecute("OPEN", "outlook.exe", cExecute, "", 1)
	EndIf
Return

Esses e outros códigos, estão disponíveis gratuitamente no nosso GitHub, acesse em github.com/dan-atilio/AdvPL.

Bom pessoal, por hoje é só.
Abraços e até a próxima.

About Dan_Atilio

Analista e desenvolvedor de sistemas. Técnico em Informática pelo CTI da Unesp. Graduado em Banco de Dados pela Fatec Bauru. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor do projeto Terminal de Informação, onde são postados tutoriais e notícias envolvendo o mundo da tecnologia.

Deixe uma resposta

%d blogueiros gostam disto: