RES: [delphi-br] Enviar e-mail com anexo via programacao
Creio que deva declarar a unit ShellAPI
procedure Tfrm_RCP.btn_EnviaEMAIL(Sender: TObject);
var
pEMail: String;
begin
pEMail:= 'mailto:[EMAIL PROTECTED] da
mensagemCAMINHO e NOME Arquivo Anexo '
{$ifdef win32}
ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show);
{$endif}
end;
Marcos Esteves Simão
Programador de Computador - Unimed Vitória
[EMAIL PROTECTED]
GERIN - CODES
-Mensagem original-
De: Vanderlei [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 09:24
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Enviar e-mail com anexo via programacao
Pessoal,
Preciso enviar um e-mail com anexo via programação, mas nao estou
encontrando uma rotina q faça isso, alguem
teria isso pra me enviar?
no aguardo
Vanderlei
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Enviar e-mail com anexo via programacao
essa rotina não funcionou comigo, alguém conseguiu usa-la
_
De: Marcos Esteves Simao (GERIN) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 10:41
Para: '[EMAIL PROTECTED]'
Assunto: RES: [delphi-br] Enviar e-mail com anexo via programacao
Creio que deva declarar a unit ShellAPI
procedure Tfrm_RCP.btn_EnviaEMAIL(Sender: TObject);
var
pEMail: String;
begin
pEMail:= 'mailto:[EMAIL PROTECTED] da
mensagemCAMINHO e NOME Arquivo Anexo '
{$ifdef win32}
ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show);
{$endif}
end;
Marcos Esteves Simão
Programador de Computador - Unimed Vitória
[EMAIL PROTECTED]
GERIN - CODES
-Mensagem original-
De: Vanderlei [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 09:24
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Enviar e-mail com anexo via programacao
Pessoal,
Preciso enviar um e-mail com anexo via programação, mas nao estou
encontrando uma rotina q faça isso, alguem
teria isso pra me enviar?
no aguardo
Vanderlei
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
http://br.rd.yahoo.com/SIG=12aemeni1/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1101472872/A=2332652/R=0/id=noscript/SIG=119058f8i/
*http://br.download.yahoo.com/messenger/
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Enviar e-mail com anexo via programacao
Comigo funciona perfeitamente. O nome do arquivo anexo deve existir e estar
entre aspas duplas
procedure TForm1.ButtonEMAILClick(Sender: TObject);
var
pEMail: String;
begin
pEMail:= 'mailto:[EMAIL PROTECTED] -
G:\Gestao\RCPs\0001.doc';
{$ifdef win32}
ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show);
{$endif}
end;
Marcos Esteves Simão
Programador de Computador - Unimed Vitória
[EMAIL PROTECTED]
GERIN - CODES
-Mensagem original-
De: Marcello [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 14:53
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Enviar e-mail com anexo via programacao
essa rotina não funcionou comigo, alguém conseguiu usa-la
_
De: Marcos Esteves Simao (GERIN) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 10:41
Para: '[EMAIL PROTECTED]'
Assunto: RES: [delphi-br] Enviar e-mail com anexo via programacao
Creio que deva declarar a unit ShellAPI
procedure Tfrm_RCP.btn_EnviaEMAIL(Sender: TObject);
var
pEMail: String;
begin
pEMail:= 'mailto:[EMAIL PROTECTED] da
mensagemCAMINHO e NOME Arquivo Anexo '
{$ifdef win32}
ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show);
{$endif}
end;
Marcos Esteves Simão
Programador de Computador - Unimed Vitória
[EMAIL PROTECTED]
GERIN - CODES
-Mensagem original-
De: Vanderlei [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 09:24
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Enviar e-mail com anexo via programacao
Pessoal,
Preciso enviar um e-mail com anexo via programação, mas nao estou
encontrando uma rotina q faça isso, alguem
teria isso pra me enviar?
no aguardo
Vanderlei
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
http://br.rd.yahoo.com/SIG=12aemeni1/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1101472872/A=2332652/R=0/id=noscript/SIG=119058f8i/
*http://br.download.yahoo.com/messenger/
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
