怎样在打开OUTLOOK发邮件的同时填写好主题和附件地址和收信人地址？

怎样在打开OUTLOOK发邮件的同时填写好主题和附件地址和收信人地址？ 问题点数：20、回复次数：5Top

1 楼friendmine（亚东）回复于 2002-10-21 11:10:48 得分 0

用VBA自己写一个吧。  
  那么多病毒都不用打开就能发邮件呢。  
  它们不都是用VBA写的吗？Top

2 楼wei97081116（韦小宝）回复于 2002-10-21 12:54:17 得分 20

HINSTANCE hMainInst;  
  hMainInst =   ::LoadLibrary("MAPI32.DLL");  
  if   (!hMainInst)  
  {  
  return;  
  }  
  ULONG   (PASCAL   *lpfnSendMail)(ULONG,   ULONG,   MapiMessage*,   FLAGS,   ULONG);  
  (FARPROC&)lpfnSendMail   =GetProcAddress(hMainInst,   "MAPISendMail");  
  if   (lpfnSendMail   ==   NULL)  
  {  
  AfxMessageBox("Get   MAPI   Function   Address   Error!");  
  return;  
  }  
  ASSERT(lpfnSendMail   !=   NULL);  
  MapiMessage   message;  
  memset(&message,   0,   sizeof(message));  
  message.ulReserved     =   0;  
  message.lpszSubject   =   "样在打开OUTLOOK发邮件的同时填写好主题和附件地址和收信人地址";  
  message.lpszNoteText   =   (LPSTR)(LPCSTR)content;  
  message.lpszMessageType   =   NULL;  
  CTime   t=CTime::GetCurrentTime();  
  message.lpszDateReceived=(LPSTR)(LPCSTR)t.Format("%Y/%m/%d   %H:%M");  
  int   nError   =   lpfnSendMail(0,   (ULONG)GetSafeHwnd(),  
  &message,   MAPI_LOGON_UI|MAPI_DIALOG,   0);  
   
  FreeLibrary(hMainInst);Top

3 楼nuago（）回复于 2002-10-29 16:12:35 得分 0

upTop

相关问题

• 邮件
• 主题
• outlook
• null
• lpfnsendmail
• 收信人
• hmaininst
• 地址
• mapi
• 打开outlook发

• 帖主：yy23rock
• wei97081116

• Visual C++类图书
• Visual C++类源码下载