excel郵件寄發多問題

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

11^# 跳轉到 »

發表於 2013-5-31 08:50 | 只看該作者

謝謝stillfish、是用反了，可是現在有另一個問題；資料有兩個人同時要接收時，程式判讀只會將最後一位列在收件者上面，請問這是哪個部份有誤?
另外請問夾帶檔案位置的部份一直測試不出來是語法錯誤嗎?謝謝

Sub SEND()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String
Dim EmailTo As String
Dim EmailCC As String
Dim EmailBCC As String
Dim EmailSubject As String
Dim EmailBody As String
Dim cell As Integer
SendType = CStr(Sheets("Sheet2").Cells(2, 2))
If SendType = "1" Then
cell = 8
ElseIf SendType = "2" Then
cell = 9
ElseIf SendType = "3" Then
cell = 10
ElseIf SendType = "4" Then
cell = 11
Else
cell = 0
End If
If cell > 0 Then
For i = 4 To 6 Step 1
If CBool(Sheets("Sheet2").Cells(i, cell)) = "TRUE" Then
EmailTo = CStr(Sheets("Sheet2").Range("G" & i)) & ";"
End If
Next
EmailCC = CStr(Sheets("Sheet2").Range("G" & 7))
EmailBCC = CStr(Sheets("Sheet2").Range("G" & 8))
EmailSubject = CStr(Sheet2.Cells(2, 3))
EmailBody = CStr(Sheet1.Range("A" & 11)) & vbNewLine
'If [Sheet1].Cells(8, 1) <> "" Then .AddAttachment ([Sheet1].Cells(8, 1))
If EmailCC <> "" Then
Set rng = Sheets("Sheet1").Range("A11:G30").SpecialCells(xlCellTypeVisible)
On Error Resume Next
' Only send the visible cells in the selection.
'Set rng = Selection.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
On Error GoTo 0
With OutMail
.To = EmailTo
.CC = EmailCC
.BCC = EmailBCC
.Subject = EmailSubject
.body = EmailBody
' .attachments.Add
.display
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
End If
End Sub

複製代碼

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

12^#

發表於 2013-5-31 12:32 | 只看該作者

回復 11# Mindyj
line#28
EmailTo = EmailTo & CStr(Sheets("Sheet2").Range("G" & i)) & ";"

line#67
.attachments.Add "C:\aa.txt"
紅色為附檔的路徑

是這樣嗎?

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

13^#

發表於 2013-5-31 12:44 | 只看該作者

回復 12# stillfish00

Hi stillfish,
夾帶檔案指定為shee1的a8儲存格，我使用了
.AddAttachment Sheet1.Cells(8, 1)
debug會停留在.addattachment

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

14^#

發表於 2013-5-31 13:36 | 只看該作者

回復 13# Mindyj

試試?
.attachments.add Sheet1.Cells(8, 1)

不行的話會不會是A8上的附件位置有錯?

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

15^#

發表於 2013-5-31 13:55 | 只看該作者

回復 14# kimbal

還是不是、很納悶，因為這一行不執行的話整個程式是沒問題的，應該是不需要另外寫function?

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

16^#

發表於 2013-5-31 14:12 | 只看該作者

本帖最後由 Mindyj 於 2013-5-31 14:15 編輯

剛剛測試了如果將夾帶檔案直接輸入檔案位置是可行的，

可是使用者會依每次需求不同選擇不同的檔案、所以才將檔案位置指定輸入至Sheet1的A8儲存格，

但是當我將夾帶檔案改為指定至儲存格就一直出現錯誤，

而錯誤一直停留在.attachments.add Sheet1.Cells(8, 1)

TOP

stillfish00