忘记添加附件了，补发

xuedejingling

Sub SendEmailByOutlook()

        On Error Resume Next
7 O( o8 B+ J7 e( u9 O- _, p9 J        Dim rowCount%, endRowNo%
        Dim objOutlook As Object
  P8 {  s7 k3 N" i/ h        Dim objMail As MailItem

        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
9 C3 W7 t2 z) F4 I        endRowNo = Cells(1, 1).CurrentRegion.Rows.count

% r6 U% d5 i  W) \- F% k. w        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application
  l7 s( i3 {" |' ?/ E
6 x: q' f. ^- u3 I        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
1 S. z2 J( C8 @) v3 C# N        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
! k. q: J3 b) P9 O           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then


                        '憂寶objMail堊堦槩儊乕儖懳徾
                        Set objMail = objOutlook.CreateItem(olMailItem)
; ~, W: }0 B9 t% O, N+ h                With objMail
+ n4 @$ j3 V% P
                        '愝抲澗審恖抧毈
                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

                        '愝抲儊乕儖僥乕儅
                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"

$ r7 d3 E5 `2 w! N9 n9 K8 ?                        '愝抲儊乕儖撪梕
8 l% ?( w4 N3 R4 ], j% Y- O, j- H6 Y                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
, \) p8 l. }, a7 R9 n. K; V                        '敾抐惀斲愝抲僷僗儚乕僪
                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then
1 h2 t% w4 S# o4 u$ m4 B
                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")

, [, ]* m+ [& n0 M8 Q# n                        End If
                        '愝抲晬審
                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"
) `' a; t6 O3 P' |# N4 J3 b3 ?
                        .send

                        MsgBox "暥審敪憲惉岟"
2 x0 ?: C' K/ S
                  If Err.Number = 0 Then
                        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
8 P, s' z7 U- _; |4 i                  Else
; W9 \  ~/ a4 {- B/ c! m                       Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
                 End If
9 H: K5 B5 ^( W: W             Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
       End With
   Application.DisplayAlerts = True
! C& K) `- r$ z% @               Else
                Set objMail = Nothing
2 g. Q! a1 C+ t- X  Next
          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
   End If
! W4 \+ Q# D' j5 q' aEnd Sub
6 i. S- N) l3 `- F  k, }
+ W0 L7 ]' u, c8 t
/ Y3 U7 r' E: ?6 P3 X
+ O( v2 B3 H, f$ n; w
3 F  }2 D5 |9 G% o




$ B% }9 L% }9 @0 ?- I