忘记添加附件了，补发

xuedejingling

Sub SendEmailByOutlook()

3 ~- r% U/ I0 g( L' @- H/ M        On Error Resume Next
        Dim rowCount%, endRowNo%
& i$ Y, d1 ]5 Y3 G$ f/ H- B: H        Dim objOutlook As Object
2 n5 X9 \/ q" T/ k+ c        Dim objMail As MailItem

        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
# U$ z9 p7 J+ {# [/ `/ @        endRowNo = Cells(1, 1).CurrentRegion.Rows.count

        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application
0 N6 e) {1 U' h$ ^/ y3 c+ Z  W% }
1 y% f' w; S) Q  ^: w3 N9 ]9 f        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
: b$ [8 s& @9 O9 Z           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then

% H: @8 r- |9 H$ \* p  l6 P. Z& E
% r9 E* K9 {6 b. }& x                        '憂寶objMail堊堦槩儊乕儖懳徾
                        Set objMail = objOutlook.CreateItem(olMailItem)
                With objMail
$ f4 C0 g' ^# `& X
                        '愝抲澗審恖抧毈
                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

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

8 x9 N# i( m4 w9 p                        '愝抲儊乕儖撪梕
& X, E# V. N. C# C                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
' J' }- R& r% y& T6 {  Y                        '敾抐惀斲愝抲僷僗儚乕僪
                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then
0 R  B' y6 I6 |' y5 f
* `& v! P2 S& @; |: T/ u2 D9 m' j                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")
: s3 o' Q* J) r! S- h; T. p
8 n; b7 I' _* }$ Y$ U2 |; p                        End If
                        '愝抲晬審
7 s) {; U$ l% x                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"
/ [+ {4 ^& `8 r3 ?8 A% {
                        .send

                        MsgBox "暥審敪憲惉岟"

! {$ S6 U8 \3 t                  If Err.Number = 0 Then
                        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
                  Else
                       Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
/ i6 Y+ ]$ U6 b9 Y                 End If
             Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
       End With
- g8 x+ e) n5 q: O7 `   Application.DisplayAlerts = True
               Else
; B: k" A2 e, U. [! B! |8 w4 S) g                Set objMail = Nothing
. U3 b! E& r1 K  Next
4 X. q+ p2 f' [& A          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
   End If
End Sub

0 P+ [) M7 x* Z8 j0 Y- J


. p: y, V' F( u4 X: u$ `* b9 c& v0 Q

7 F( _! j' f0 ]; d( \

! J5 Z# v, [3 |; W4 d. i( N

7 [# x9 s- u* d/ a1 t5 f