µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¦Û°ÊMAILªþ¥[¹Ï¤ù°ÝÃD´M°Ý
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¦Û°ÊMAILªþ¥[¹Ï¤ù°ÝÃD´M°Ý
rouber590324
µoµu®ø®§
¥[¬°¦n¤Í
rouber590324
·í«eÂ÷½u
UID
18546
©«¤l
561
¥DÃD
160
ºëµØ
0
¿n¤À
725
ª÷¿ú
725
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
¦b½u®É¶¡
557 ¤p®É
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2024-8-7
°ª¤¤¥Í
©«¤l
561
¥DÃD
160
ºëµØ
0
¿n¤À
725
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2024-8-7
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2017-4-13 14:16
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
¦Û°ÊMAILªþ¥[¹Ï¤ù°ÝÃD´M°Ý
DEAR ALL ¤j¤j
1.¦p¤UVAB ¬°¥i¦Û°ÊMAILªþ¥[ÀÉ®×»PMAIL¤º®e§ì¨úSheet1.Range("A1") Sheet1.Range("A2") Sheet1.Range("A3") ¨q¥X
1.1°ÝÃD½Ð±Ð.¤µ Sheet1.Range("A3") ¤º®e=¤å¦r¼Æ¦r§¡¥i¨q¥X©óMAIL¤§¤º®e¤¤.
¦ý©ñ¸m¹ÏÀÉ´NµLªk¨q¥X©óMAIL¤§¤º®e¤¤
1.1.1½Ð°Ý¦³µL¿ìªk±N«ü©w¦ì¸m¹ÏÀɦ۰ʥN¨ìMAIL¤§¤º®e¤¤
2.·Ð¤£§[½ç±Ð THANKS*10000
Option Explicit
Sub SenddMail()
Dim oltAPP As Outlook.Application
Dim myMail As MailItem
Dim Sender As Long
Set oltAPP = CreateObject("Outlook.Application")
Set myMail = oltAPP.CreateItem(olMailItem)
With myMail
Application.DisplayAlerts = False
.To = "
[email protected]
;
[email protected]
"
.CC = "
[email protected]
;
[email protected]
"
.Attachments.Add "C:\Documents and Settings\N000017371\®à±\¥X¶Ô-¿z¿ï«á\¤W¯Z¶W®É©ú²Óªí-²£³]³B-7¥ð1½T»{-¤é´£³øªí-8¤é¿z¿ï«á-2017413.XLS" 'ªþ¥ó(½Ð¦Û¦æ§ó§ï¸ô®|)
.BodyFormat = olFormatPlain
.Body = "" & Sheet1.Range("A1") & "" & Chr(10) & "" & Sheet1.Range("A2") & "" & Chr(10) & "" & Sheet1.Range("A3") & "" '¤º®e
.Subject = "" & Sheet1.Range("A4") & "" '¥D¦®
.Send
End With
oltAPP.Quit
Set oltAPP = Nothing
Set myMail = Nothing
End Sub
¼Ó¥D¼ö©«
½s¿è¿ù»~,¨Ï¥ÎªÌ¦Ûq§ÎºA©|¥¼©w¸q-°ÝÃ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½Ð±Ð
×§ï¤é´Á°ÝÃD´M°Ý
¦hSHEET¤u§@ªí¸ê®Æ¶×¾ã°ÝÃD½Ð±Ð
¦¬ÂÃ
¤À¨É
ù
hungrn
µoµu®ø®§
¥[¬°¦n¤Í
hungrn
·í«eÂ÷½u
UID
8104
©«¤l
20
¥DÃD
6
ºëµØ
0
¿n¤À
76
ª÷¿ú
76
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
sp1
¾\ŪÅv
20
¦b½u®É¶¡
69 ¤p®É
µù¥U®É¶¡
2012-2-3
³Ì«áµn¿ý
2025-3-12
¤¤¾Ç¥Í
©«¤l
20
¥DÃD
6
ºëµØ
0
¿n¤À
76
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
sp1
¾\ŪÅv
20
µù¥U®É¶¡
2012-2-3
³Ì«áµn¿ý
2025-3-12
2
#
µoªí©ó 2017-4-25 21:56
|
¥u¬Ý¸Ó§@ªÌ
³Ì§Öªº¤è¦¡
.Body §ï¬° .HTMLBody
¹ÏÀɧאּ¥Î³sµ²ÀÉ®×
"<img src='X:\X.jpg' height=XXX width=XXX>"
height=XXX width=XXX (³]©w¤j¤p..¤£¿é¤J¤]¥i¥H)
TOP
rouber590324
µoµu®ø®§
¥[¬°¦n¤Í
rouber590324
·í«eÂ÷½u
UID
18546
©«¤l
561
¥DÃD
160
ºëµØ
0
¿n¤À
725
ª÷¿ú
725
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
¦b½u®É¶¡
557 ¤p®É
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2024-8-7
°ª¤¤¥Í
©«¤l
561
¥DÃD
160
ºëµØ
0
¿n¤À
725
ÂI¦W
0
§@·~¨t²Î
WINDOWS
³nÅ骩¥»
xp
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
®ç¶é
µù¥U®É¶¡
2014-9-10
³Ì«áµn¿ý
2024-8-7
3
#
µoªí©ó 2017-4-26 13:48
|
¥u¬Ý¸Ó§@ªÌ
DEAR hungrn ¤j¤j
·PÁ«ü¾É.¥i¥N¥X¹Ï¤ù©óMAIL THANKS*10000
ù
TOP
ÀR«ä¦Û¦b :
¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú̧óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ùÈ¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
¤@¯ë¹q¸£³nÅé°Q½×
Excel£¸¯ë°Ï
VB »P VB.Net
Word
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¯»µ·