[操作疑難] [VBA] Bulk email with Attachments

本帖最後由 a__lien 於 2019-10-14 23:18 編輯

我曾經用過以下script send 大量emails with attachments
但而家改左用office 365, 個script 就唔work.

想請教各位高手, 我應該點做

Private Sub Application_ItemSend(ByVal Item As Object, _
                                 Cancel As Boolean)
    Dim objRecip As Recipient
    Dim strFrom As String
    Dim strSubject As String
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    'On Error Resume Next

    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
   
    strBcc = "sampleemail.com"

    Set objRecip = Item.Recipients.Add(strBcc)
   
    Item.Attachments.Add ("c:\testing.pdf")
   
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
         strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
         res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If

    Set objRecip = Nothing
        
End Sub

我曾經用過以下script send 大量emails with attachments
但而家改左用office 365, 個script 就唔work.

想 ...
a__lien 發表於 2019-10-14 23:14


Office 365 support vba?

TOP

本帖最後由 toylet 於 2019-10-15 23:28 編輯
我曾經用過以下script send 大量emails with attachments
但而家改左用office 365, 個script 就唔work.
a__lien 發表於 14/10/2019 23:14

有無 error message? 乜 error 都無即是個 script 無執行過? Security? Virus-scanner?
既然是轉 Office 版本, 不如 先試試 簡單的 script/macro (e.g. hello_world.vba) 睇下乜事!
應該逐句逐句行.... 睇下邊行有問題! (不用 debuggers 解決 programming errors 的方法)

Microsoft Office 應用
https://www.hkepc.com/forum/forumdisplay.php?fid=294

程式編寫
https://www.hkepc.com/forum/forumdisplay.php?fid=26

TOP

我曾經用過以下script send 大量emails with attachments
但而家改左用office 365, 個script 就唔work.

想 ...
a__lien 發表於 2019-10-14 23:14



    用 Powershell 啦, 唔好用 vba

TOP

用 Powershell 啦, 唔好用 vba
xader 發表於 2019-10-15 23:57


Powershell 對我黎講,好難用及學,我比較鍾意vbs vba

TOP