纠错

xuedejingling

Sub SendEmailByOutlook()
! c: @, A0 i3 b3 D
: E4 j2 O1 k( T& q8 [        On Error Resume Next
+ @# F# ?+ d( L& r; }0 a        Dim rowCount%, endRowNo%
        Dim objOutlook As Object
        Dim objMail As MailItem
+ N& o5 K: w. f0 q. X$ m
        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
        endRowNo = Cells(1, 1).CurrentRegion.Rows.count
5 \4 O9 P! P. y3 }
        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application
3 ?, f8 y3 N$ w; H) t4 [8 r
        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
3 ]2 l' \/ H# ~6 r& C  r: Z; E/ P        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then
  {0 @3 b$ P2 s

) w: L0 m" Z. I  H$ Z                        '憂寶objMail堊堦槩儊乕儖懳徾
                        Set objMail = objOutlook.CreateItem(olMailItem)
0 e" z  R" `; y5 I' D8 E9 a                With objMail

" ~* |$ Z8 Q' f6 @! ]0 Q                        '愝抲澗審恖抧毈
. u% }5 P4 P( g                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

                        '愝抲儊乕儖僥乕儅
/ o3 }+ {3 m/ C. f" q                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"
1 H, k  @! h) W! K+ m
7 L, ~6 G, u! I0 c                        '愝抲儊乕儖撪梕
                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
3 w% H- G3 e5 o# `! H2 F% F- o                        '敾抐惀斲愝抲僷僗儚乕僪
                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then

                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")
  ^9 a' u7 [$ z3 Z& b  T( w# X
; [8 K/ W5 U) w" T0 x                        End If
                        '愝抲晬審
9 K- h* P# H. D7 ^, s% O3 \, W* I                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"
8 m, {  }; J9 \, v
                        .send

/ L5 {. w1 T" J& |$ U+ ~  \* p8 T                        MsgBox "暥審敪憲惉岟"
" x- l- \7 P% z# b
( r2 s9 x. D  s# y& O                        Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")

                   End With
                   If Err.Number = 0 Then
                    Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
6 b( n' A0 y* E# t4 A    Else
7 n) l4 V$ {- E8 a. J$ s1 D/ ]        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
    End If

    Application.DisplayAlerts = True
               Else
8 ~6 ]2 a* l+ r( u5 U6 E                Set objMail = Nothing
  Next
          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
   End If
End Sub

xuedejingling

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

xuedejingling

万分感谢