µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ½s¿è¿ù»~,¨Ï¥ÎªÌ¦Ûq§ÎºA©|¥¼©w¸q-°ÝÃD½Ð±Ð
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
½s¿è¿ù»~,¨Ï¥ÎªÌ¦Ûq§ÎºA©|¥¼©w¸q-°ÝÃD½Ð±Ð
rouber590324
µoµu®ø®§
¥[¬°¦n¤Í
rouber590324
·í«eÂ÷½u
UID
18546
©«¤l
560
¥DÃD
159
ºëµØ
0
¿n¤À
723
ª÷¿ú
723
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
¦b½u®É¶¡
556 ¤p®É
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2023-10-31
°ª¤¤¥Í
©«¤l
560
¥DÃD
159
ºëµØ
0
¿n¤À
723
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2023-10-31
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2014-12-2 15:03
|
Åã¥Ü¥þ³¡©«¤l
[µo°Ý]
½s¿è¿ù»~,¨Ï¥ÎªÌ¦Ûq§ÎºA©|¥¼©w¸q-°ÝÃD½Ð±Ð
DEAR ALL¤j¤j
1¦pªí¤@µ{¦¡ ©óì EXCEL¨Ï¥Î¥¿±`
2§Ú±N¤§ COPY¦Ü¥t¤@·sEXCEL °õ¦æ«á¥X²{ "½s¿è¿ù»~,¨Ï¥ÎªÌ¦Ûq§ÎºA©|¥¼©w¸q"
2.1 ½Ð°Ý«e½ú̦p¦ó©w¸q©ó¦ó³B©w¸q?·Ð¤£§[½ç±Ð THANKS*10000
ªí¤@
Option Explicit
Sub SenddMail()
Dim oltAPP As Outlook.Application
Dim myMail As MailItem
Dim Sender As Long
Application.DisplayAlerts = False
Set oltAPP = CreateObject("Outlook.Application")
Set myMail = oltAPP.CreateItem(olMailItem)
With myMail
.To = "
[email protected]
"
.CC = "
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
;
[email protected]
"
.BodyFormat = olFormatPlain
.Body = "" & Sheet18.Range("A1") & "" & Chr(10) & "" & Sheet18.Range("A2") & "" & Chr(10) & "" & Sheet18.Range("A3") & "" '¤º®e
.Subject = "" & Sheet18.Range("A4") & "" '¥D¦®
.Send
End With
'oltAPP.Quit 'Ãö³¬MAIL
Set oltAPP = Nothing
Set myMail = Nothing
End Sub
¼Ó¥D¼ö©«
«ü©w¸ê®Æ§¨¤º«D¤å¦rÀɦ۰ÊÂà´«¬°¤å¦rÀÉ°ÝÃD
«ü©wÀx¦s®æ½d³òÅܧ󩳦âÃC¦â°ÝÃD½Ð±Ð-VBA
VLOOKUP°ÝÃD½Ð±Ð
«ü©w¦r¤¸°ÝÃD½Ð±Ð
¸ê®Æ§¨¦Û°Ê¨Ìì«h§R°£ÀÉ®×°ÝÃD½Ð±Ð
µLªk¦C¦L°ÝÃD½Ð±Ð
SUM VBA¼gªk½Ð±Ð
¦hSHEET¤u§@ªí¸ê®Æ¶×¾ã°ÝÃD½Ð±Ð
קï¤é´Á°ÝÃD´M°Ý
µøµ¡-áµ²µøµ¡°ÝÃD½Ð±Ð
¦¬ÂÃ
¤À¨É
ù
rouber590324
µoµu®ø®§
¥[¬°¦n¤Í
rouber590324
·í«eÂ÷½u
UID
18546
©«¤l
560
¥DÃD
159
ºëµØ
0
¿n¤À
723
ª÷¿ú
723
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
¦b½u®É¶¡
556 ¤p®É
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2023-10-31
°ª¤¤¥Í
©«¤l
560
¥DÃD
159
ºëµØ
0
¿n¤À
723
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2023-10-31
2
#
µoªí©ó 2014-12-3 11:56
|
Åã¥Ü¥þ³¡©«¤l
DEAR SIR
·PÁ±z.©ó ¤u¨ã>³]©w¤Þ¥Î¶µ¥Ø ¤Ä¿ï "Microsoft outlook 11.0 object library"
«á§Y¥i¥¿±`¹B§@. thanks*10000
ù
TOP
ÀR«ä¦Û¦b :
ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·