Estou usando a função abaixo para enviar email, está enviando belezinha, só
que quando abre a tela do Outlook ela fica travada, só permite a digitação
do email do destinatário, e para enviar uso ALT+S. Peguei ela já faz um bom
tempo e fiz algumas mudanças, alguém já usou a mesma???
Function TFPrinc.SendMail( pTo, pCC, pCCo, pAssunto, pTexto: PChar) :
Cardinal;
var
MapiMessage: TMapiMessage;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := pAssunto;
lpszNoteText := pTexto;
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nRecipCount :=0; { Number of
}
nFileCount :=0;
lpFiles :=nil;
end;
Result := MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or
MAPI_NEW_SESSION, 0);
if Result <> 0 then
MessageDlg('Erro na Tentativa de enviar o Email',MtError,[mbok],0);
Obrigado
---------------------------------
Alcir Alexandre da Silva
Umuarama - Paraná - Brasil
---------------------------------
--
<<<<< 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
