纠错

xuedejingling

Sub SendEmailByOutlook()

9 x2 }3 z& x* n  y2 z$ _- Q% b* Y+ h        On Error Resume Next
) p7 B1 Y8 v( j7 W        Dim rowCount%, endRowNo%
! i4 Q4 C7 M8 j        Dim objOutlook As Object
        Dim objMail As MailItem
! A) F. _0 Q9 i. S' w# _8 C
        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
+ d! }5 H8 V. A( t0 h& g        endRowNo = Cells(1, 1).CurrentRegion.Rows.count

. a+ I" e$ [/ V0 M        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application

        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then


  n7 n: Q& L: o. Q. j$ I                        '憂寶objMail堊堦槩儊乕儖懳徾
                        Set objMail = objOutlook.CreateItem(olMailItem)
                With objMail

. P* x4 y2 c% _3 y( J* ^                        '愝抲澗審恖抧毈
                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

# U& O0 [' d6 W2 F( e: o+ M                        '愝抲儊乕儖僥乕儅
4 \) d' n0 a$ T3 W8 g1 m. |                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"

. P; _! p0 c$ ~0 D! v                        '愝抲儊乕儖撪梕
                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
                        '敾抐惀斲愝抲僷僗儚乕僪
8 H  d  t7 G: Y& C                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then

3 V- [9 h$ Y) L; l+ r/ |                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")

" n( {* H, X1 r$ F$ R                        End If
6 L% ?8 T. Z5 |4 }2 H0 ]6 o                        '愝抲晬審
$ T8 q1 p# [7 W8 v                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"

                        .send
" w3 F" Q5 _1 v2 R
- F1 O- _: e& [" q  L                        MsgBox "暥審敪憲惉岟"
5 ^+ U8 ]  W% U6 }3 k( ^0 J6 l
                        Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
* w4 X' v7 A- P! o. q8 E4 x
                   End With
0 X, r2 o4 s* T( d/ t  x                   If Err.Number = 0 Then
' t9 r' B# S* N1 K5 ]. f) \                    Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
    Else
        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
; g: m8 @9 f% U1 Z6 Z0 R. o& [    End If
' t7 A4 Q) Z$ F6 v
    Application.DisplayAlerts = True
               Else
                Set objMail = Nothing
  Next
          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
   End If
End Sub
9 n5 r7 W( D7 x. |+ d

, m4 V, \* m2 j

xuedejingling

麻烦大家根据附件看一下我这程序的错误

xuedejingling

万分感谢