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

a__lien

我曾經用過以下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

bongbong3481

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

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

Office 365 support vba?

xader

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

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

    用 Powershell 啦, 唔好用 vba

bongbong3481

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

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