ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¥Îoutlook±H«H

¥Îoutlook±H«H

§Ú¥Î¤F¥H¤Uªº¤èªk¦¨¥\ªº¥Îoutlook±H«H¤F
¦ý¬O¦³­Ó³Â·Ðªº¦a¤è´N¬O°õ¦æ¤§«e
¥²¶·¥ý¶}±Òoutlook

½Ð°Ý
¦³¨S¦³¿ìªk¥i¥H¤£¥Î¥ý¶}±ÒOUTLOOK¡AµM«áµ{¦¡¤]¯à¥¿±`°õ¦æ?
©Î¬O¦b°õ¦æ«eVBA¥i¥H¦Û°ÊÅýOUTLOOK±Ò°Ê?
·PÁ¦U¦ì°ª¤â



§Ú¥Î¤F¥H¤Uªº¤èªk¦¨¥\ªº¥Îoutlook±H«H¤F
¦ý¬O¦³­Ó³Â·Ðªº¦a¤è´N¬O°õ¦æ¤§«e
¥²¶·¥ý¶}±Òoutlook

½Ð°Ý
¦³ ...
ssooi µoªí©ó 2020-8-7 19:20


¥Î©³¤Uªº«ü¥O¬O¥i¥H¶}±Ò Outlook µ{¦¡°Õ.
  1. Dim dTaskID As Double
  2. dTaskID = Shell("OUTLOOK.EXE", 1)
  3. If Err <> 0 Then
  4.   MsgBox "¶}±Ò Outlook µ{¦¡¥¢±Ñ..."
  5.   Exit Sub
  6. End If
½Æ»s¥N½X
¤£¹L,
§Ú°õ¦æ§Aªºµ{¦¡«áµo²{ :
Set OLApp = New Outlook.Application °õ¦æ«á,
¬O¦³¶}±Ò Outlook µ{¦¡ªº(¥u¬O¨SÅã¥Ü¥X¨Ó,¦ý¤u§@ºÞ²z­û¬Ýªº¨ì),
°õ¦æ¨ì³Ì«á®É«H¥óµøµ¡ÁÙ¬O·|¨q¥X¨Ó,
¥B¦ü¥G(§Ú¨S¸Õ)¤]¥i¥H±H¥X¸Ó«H¥ó. (Ãþ¦ü§A»¡ªº¤£¶}±ÒOutlook´N±H«H)

TOP

¦^´_ 2# luhpro

¯uªº¤Ó·PÁ¤F~
¤è«K¦A½Ð°Ý
«H¥ó±H¥X«á¡A¸Ó«ç»ò¼Ë"¦Û°Ê"Åýoutlookµ{¦¡Ãö³¬©O
ÁÂÁ§A!

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-8-23 00:20 ½s¿è

¦^´_ 3# ssooi


¨S¥Î¹LOutlook ¡A¦ý¬O·L³nªºÅÞ¿èÀ³¸Ó³£¬O¤@¼Ëªº(°Ñ¦ÒExcel & IEª«¥ó)

Set OLK=CreateObject("Outlook.Application")  '³Ð¤@­Ó  Outlook ª«¥ó  
OLK.Visible=True  'Åã¥Ü Outlook µøµ¡
OLK.Quit        'Ãö³¬Outlook
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff458119(v=office.11)?redirectedfrom=MSDN

http://www.rondebruin.nl/win/section1.htm
³o¸Ì¦³«Ü¸Ô²Ó»¡©ú ¦p¦ó±H«H ©Î ¦p¦ó §¨±aªþÀɤ§Ãþªº

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD