Сообщений в теме: 4

[*Angel*]

Программа генерит Error report в виде письма в Outlook и прикладывает архив базы. Название архива связано с текущей датой.

Как проверить, есть ли аттачи и как прочитать название приаттаченного архива?

спасибо

[Dmitry N]

Здравствуйте.

Попробовать прочитать письмо через COM объект Outlook'а. Пример работы с Outlook найдёте в папке 'C:\Program Files\Automated QA\TestComplete 5\Samples\Scripts\MSOffice'.

[*Angel*]

В примере показывается как создается новое сообщение и как потом с ним работать. Меня интересует, если программой сгенерился error report в виде письма, как в уже существующем письме определить есть ли аттачи, ведь само письмо уже в Winword процессе.

[Dmitry N]

Здравствуйте.

Боюсь, что не знаю как это сделать. Вам надо посмотреть документацию на OLE модель Outlook. Скорее всего, вы сможете найти там нужную информацию.

[*Angel*]

Мне из поддержки прислали скрпит, надеюсь, кому-то поможет:

w1=Sys.Process("WINWORD").Window("OpusApp", "Error Reported ", 1).Exists;
  while ((!w1)&&(temp<300))
    {
      BuiltIn.Delay(1000);
      temp++;
    }
  if (Sys.Process("WINWORD").Window("OpusApp", "Error Reported ", 1).Exists)
  {

    w2=Sys.Process("WINWORD").Window("OpusApp", "Error Reported", 1).Window("MsoCommandBarDock", "MsoDockTop", 3).Window("MsoCommandBar", "Envelope", 1).Window("#32770", "", 1);
    attachmentsField = w2.Window("RichEdit20WPT", "", 9);
    outlook = Sys.Process("OUTLOOK");  
    attachments = GetAttachments(outlook, attachmentsField);
    for(i = 0; i < attachments.length; i++)
    { 
      Log.Message(attachments[i]);
      if (attachments[i]!="")
      {
        ProjectSuite.Variables.CreateErrorReport="Success";
        Log.Message ("*** Create Error Report success ***");
        break;
      }
    }
   }

function GetAttachments(outlook, attachmentsFiled)
{
  var i, saveAsDialog, field, number, attachments;

  attachments = new Array();

  field = attachmentsFiled;
  if (field.wText == "")
    return attachments;
  if (field.wText == " ")
    number = 1;
  else
    number = field.wText.split(";").length;

  field.Keys("^[Home]");
  for(i = 0; i < number; i++) {
    field.Keys("[Apps]");
    field.PopupMenu.Click("Save As...");
    saveAsDialog = outlook.Window("bosa_sdm_Mso96", "Save Attachment");
    attachments[i] = saveAsDialog.Window("RichEdit20W", "", 2).wText;
    saveAsDialog.Keys("[Esc]");
    field.Keys("^[Right]^[Right]");
  }
  return attachments;
}