Ïîíåäåëüíèê, 13 Àâãóñòà 2018 ã. 17:14
+ â öèòàòíèê
Óâàæàåìûé ôîðóì,
ïîíèìàþ, ÷òî áÎÿí, íî âñå-òàêè. Ïðîñòàÿ çàäà÷à: áàçà íà Àêñå äîëæíà ñîçäàâàòü è ïîêàçûâàòü ïîëüçîâàòåëþ ìûëî, èñïîëüçóÿ Outlook. Îôèñ 2016. Èñïîëüçóþ êîä:
Set outlObj = CreateObject("Outlook.Application")
Set outlItem = outlObj.CreateItem(olMailItem)
outlItem.Importance = olImportanceNormal
....
outlItem.Attachments.Add "C:\Users\" & Environ("USERNAME") & "\" & flname & ".xlsx"
outlItem.Subject = "Something..."
outlItem.Body = "Bla-bla-bla"
outlItem.Display
Ïðîáëåìà â òîì, ÷òî åñëè Outlook â ýòî âðåìÿ íå çàïóùåí, òî âñå âèñíåò è íè÷åãî íå ïðîèñõîäèò. Åñëè Outlook çàïóùåí - âñå ðàáîòàåò íà óðà. Åñòü âàðèàíòû, êàê ïîáîðîòü?
http://www.sql.ru/forum/1300899/outlook-is-access
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-