忘记添加附件了，补发

xuedejingling

Sub SendEmailByOutlook()
+ o, ^6 `3 C& x- d$ L
3 L* N! L3 b4 U) p6 j        On Error Resume Next
        Dim rowCount%, endRowNo%
        Dim objOutlook As Object
        Dim objMail As MailItem

& p0 g9 K0 ?7 a; f        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
& D3 u( O6 j( h( x        endRowNo = Cells(1, 1).CurrentRegion.Rows.count

" W, V7 K" c3 t# b) G5 {3 [        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application

# h# a) j2 `8 q- _, z        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
0 ]4 N$ f& M, v, k/ U& g& G        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then
& v; F4 T; t& M$ f9 K
/ i, V* E5 E% M0 @3 [' q
* O* t$ s8 [* E3 S$ J) r2 T                        '憂寶objMail堊堦槩儊乕儖懳徾
6 q, O/ v/ Z5 }- ?                        Set objMail = objOutlook.CreateItem(olMailItem)
" B8 E3 E0 }5 w1 y5 P                With objMail
, n) f; U# _" i! x
                        '愝抲澗審恖抧毈
: s, r% p1 t1 k) ~" ^                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"
4 h7 Z+ s" x% L: X) A9 o* e5 }
                        '愝抲儊乕儖僥乕儅
$ A( h$ g, f" n$ D7 z$ J& a                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"

6 `$ A' g8 t) B9 x5 w  G                        '愝抲儊乕儖撪梕
2 E9 \- }/ a7 o                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
                        '敾抐惀斲愝抲僷僗儚乕僪
: z0 m- @# z8 p                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then
3 m$ V  X" P) _( K  H
* @3 Z' F/ [+ g5 a8 ?& j+ q* f                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")

/ Y; A" A, g$ c6 U0 c1 a1 Y                        End If
                        '愝抲晬審
. [3 r+ `" }0 A% C/ t+ ?4 Q0 K                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"

# J7 |4 E8 _8 R" e+ G6 E                        .send

                        MsgBox "暥審敪憲惉岟"

9 u* ?! U& `3 J$ D1 y1 A                  If Err.Number = 0 Then
                        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
3 g: S/ u) L0 h, {; U6 g                  Else
- L9 Z! \) Y( C( U                       Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
5 w% l7 k2 U7 ^6 i4 m                 End If
: u# e% M  j5 T3 w' i             Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
( O' [. R0 z6 {3 f% B       End With
   Application.DisplayAlerts = True
- w2 X& s7 M: o8 l: f! N% q6 a               Else
' o7 f5 t$ ]. \                Set objMail = Nothing
  Next
( w. b) t- u5 N$ H          'objOutlook懳徾傪攑婞偡傞
8 ^, c' I; T8 p( h$ p- b          Set objOutlook = Nothing
5 u& k  r- G+ _5 R* I& `% j- @3 H   End If
4 p3 M6 J( o3 C' b' H8 F/ F# pEnd Sub
3 o; f) F5 {% S' o  \, `+ h




  P, _9 p' q* G9 v( Q' v. ^- h3 K

  m$ J" I0 J2 F2 [# X% n" ~
' B9 E1 i; m/ {2 Y7 {
0 Y. F* W6 |' Z+ F! L