Montar mensagem no outlook e salvar com .msg

Question

Amigos..O que preciso fazer pra montar uma mensagem do outlook na mem�ria com anexos e salvar com a extens�o .msg???Estou desenvolvendo um agente que envia e-mails e as mensagens enviadas ser�o salvar...

Diegus · Answer

[quote:f393e9e82e=�Diegus�]Amigos..O que preciso fazer pra montar uma mensagem do outlook na mem�ria com anexos e salvar com a extens�o .msg???Estou desenvolvendo um agente que envia e-mails e as mensagens enviadas ser�o salvar com esta extens�o para que, depois, o usu�rio confira as mensagens enviadas..Desde j� agrade�o.[/quote:f393e9e82e]Seguinte... esqueci de citar q estou usando o CDO.Message para enviar as mensagens... Hoje j� estou enviando as mensagens... o que est� faltando � salvar essas mensagens como arquivo...Serah que tem algum recurso do CDO para resolver meu problema!?!!??!?!...

Diegus · Answer

Fiz um teste com a seguinte linha de c�digo:

procedure TDM_AgentePopi_EnvioEmailConsultores.EnviandoEmail(Corpo, Assunto, Destinatarios, Anexos : Variant);
const
  // OlItemType constants
  olMailItem = 0;
  olAppointmentItem = 1;
  olContactItem = 2;
  olTaskItem  = 3;
  olJournalItem = 4;
  olNoteItem = 5;
  olPostItem = 6;
  // OlAttachmentType constants
  olByValue = 1;
  olByReference = 4;
  olEmbeddedItem = 5;
  olOLE = 6;

var
  myOlApp, myItem, myRecipient, myAttachments, olOrigItem: OleVariant;
begin
  myOlApp := CreateOLEObject(�Outlook.Application�);
  myItem := myOlApp.CreateItem(olMailItem);
  myItem.Subject := Assunto;
  myItem.To:= Destinatarios;
//  myItem.SenderEmailType:= �TEXT/HTML�;
  myItem.Body := Corpo;
  // Now let�s attach the files...
  myAttachments := myItem.Attachments;
  myAttachments.Add(Anexos);
  myItem.SaveAs (�C:\Teste.msg�, olMsg);
  olOrigItem := Nothing;
  myOlApp := VarNull;
  myItem := VarNull;
  myRecipient := VarNull;
  myAttachments := VarNull;
end;

Mas quando chega no SaveAs aparece uma mensagem:

�Um programa est� tentando acessar dados do Outlook que podem incluir informa��es do �Cat�logo de ender�os�. Deseja permitir isso? Se isso for inesperado, talvez seja um v�rus e voc� deve escolher �N�o�. (checkbox) Permitir acesso para [1 minuto >]�

Como fazer para n�o solicitar esta confirma��o e como definir o corpo da mensagem como HTML ?!??!!?!??!?

Diegus · Answer

[quote:39a7c57bed=�Diegus�]Fiz um teste com a seguinte linha de c�digo:[code:1:39a7c57bed]procedure TDM_AgentePopi_EnvioEmailConsultores.EnviandoEmail(Corpo, Assunto, Destinatarios, Anexos : Variant);const  // OlItemType constants  olMailItem = 0;  olAppointmentItem = 1;  olContactItem = 2;  olTaskItem  = 3;  olJournalItem = 4;  olNoteItem = 5;  olPostItem = 6;  // OlAttachmentType constants  olByValue = 1;  olByReference = 4;  olEmbeddedItem = 5;  olOLE = 6;var  myOlApp, myItem, myRecipient, myAttachments, olOrigItem: OleVariant;begin  myOlApp := CreateOLEObject(�Outlook.Application�);  myItem := myOlApp.CreateItem(olMailItem);  myItem.Subject := Assunto;  myItem.To:= Destinatarios;//  myItem.SenderEmailType:= �TEXT/HTML�;  myItem.Body := Corpo;  // Now let�s attach the files...  myAttachments := myItem.Attachments;  myAttachments.Add(Anexos);  myItem.SaveAs (�C:Teste.msg�, olMsg);&#91;color=green&93; // olOrigItem := Nothing;&91;/color&93; esqueci de retirar isso ... n�o faz parte do c�digo...  myOlApp := VarNull;  myItem := VarNull;  myRecipient := VarNull;  myAttachments := VarNull;end;[/code:1:39a7c57bed]Mas quando chega no SaveAs aparece uma mensagem:�Um programa est� tentando acessar dados do Outlook que podem incluir informa��es do �Cat�logo de ender�os�. Deseja permitir isso? Se isso for inesperado, talvez seja um v�rus e voc� deve escolher �N�o�. (checkbox) Permitir acesso para [1 minuto >]� Como fazer para n�o solicitar esta confirma��o e como definir o corpo d...

F�rum Montar mensagem no outlook e salvar com .msg #347157