Snasui Excel Forum

Code: Select all

Sub Send_Email_Program()
    Dim myoutlook As Outlook.Application
    Dim mitem As Outlook.MailItem
    
    Set myoutlook = New Outlook.Application

    lastrow = Sheets("Mail").Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To lastrow
        Set mitem = myoutlook.CreateItem(olMailItem)
            With mitem
                .To = Sheets("Mail").Range("A" & i).Value
                .CC = Sheets("Mail").Range("B" & i).Value
                .Subject = Sheets("Mail").Range("D" & i).Value
                .Body = Sheets("Mail").Range("E" & i).Value
                .Attachments.Add (Sheets("Mail").Range("F" & i).Value)
                .Send
             End With
        Next i

    MsgBox "ส่ง Email ครบทุกคนแล้ว"

End Sub

Code: Select all

Option Explicit

Sub Send_Email_Program()
    Dim myoutlook As Outlook.Application
    Dim mitem As Outlook.MailItem
    Dim lastrow As Long, i As Integer
'Other code