1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49:
0 после этого 'Внешний вид не бежал, не начинает его от Кодего Установите oOutlookApp = CreateObject («Outlook.Application») bStarted = True Закончитесь если 'Создайте новое mailitem Установите oItem = oOutlookApp.CreateItem (olMailItem) С oItem 'Установите получатель для нового электронная почта Если infoReqMod.ReqInfoData.RptOpt = 1 после этого . = «[email protected]» ElseIf infoReqMod.ReqInfoData.RptOpt = 2 после этого . = «МЕТРИЧЕСКАЯ СИСТЕМА МЕР И ТЕХНОЛОГИЯ DL KNA SSC A/P» ElseIf infoReqMod.ReqInfoData.RptOpt = 3 после этого . = «[email protected]» Закончитесь если 'Установите получатель для экземпляра .CC = «[email protected]» 'Установите вопрос . Вопрос = «запрос информации» 'Содержание документа использовано как тело для электронная почта . Тело = infoReqMod.CreateBody Если infoReqMod.attachments.blnHaveAttach = True после этого Затемните I как интежер Для I = 0 к infoReqMod.attachments.intCnt - 1 .attachments. Добавьте infoReqMod.attachments.strAttach (I) Затем Закончитесь если . Пошлите Закончитесь с Если bStarted после этого 'Если мы начали внешний вид от Кодего, то близко оно oOutlookApp.Quit Закончитесь если