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

[µo°Ý] ½s¿è¿ù»~,¨Ï¥ÎªÌ¦Û­q§ÎºA©|¥¼©w¸q-°ÝÃD½Ð±Ð

[µ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
ù

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2014-12-2 17:10 ½s¿è

¦^´_ 1# rouber590324
¤u¨ã>³]©w¤Þ¥Î¶µ¥Ø¡A¥h³]©wª«¥ó¥¿½Tªº¤Þ¥Î¶µ¥Ø

©Î«Å§i¬°Object:
  Dim oltAPP As Object
  Dim myMail As Object
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

DEAR  SIR
  ·PÁ±z.©ó ¤u¨ã>³]©w¤Þ¥Î¶µ¥Ø ¤Ä¿ï "Microsoft outlook 11.0 object library"
  «á§Y¥i¥¿±`¹B§@.  thanks*10000
ù

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD