Multiple attachments to send in outlook at one shot

GirishDhruva

Active Member
Joined
Mar 26, 2019
Messages
266
Hi everyone,

Here i am trying to send multiple attachments at one shot but as i compiled and check its exiting at the point of attachment at the send time
Any one suggest me with what changes i should do????
Here is my code
Code:
Sub Mail()
Dim myApp As Outlook.Application, mymail As Outlook.MailItem
Dim path, signature, emp_name, subject, body As String
Dim file As String
Dim x As Long
On Error GoTo ExitSub
lastrow = Sheets("Mail").Cells(Rows.Count, "A").End(xlUp).Row
For x = 2 To lastrow
        path = Cells(x, "A").Value & "\" & Cells(x, "B").Value
        emp_name = Cells(x, "C").Value
        subject = Cells(x, "D").Value
        body = Cells(x, "E").Value
        signature = Cells(x, "G").Value
        Set myApp = New Outlook.Application
        Set mymail = myApp.CreateItem(olMailItem)
        mymail.To = Cells(x, "F").Value
    If path <> "" Then
        If (Cells(x, "D").Value) <> "" Then
            With mymail
                .subject = subject
                .Attachments.Add (path)
                .body = "Hi " & emp_name & "," & vbCrLf & body & vbCrLf & vbNewLine & "Regards," & vbCrLf & signature
                .Display
                .send
            End With
        Else
            MsgBox ("Please Enter Mail ID")
            Exit Sub
        End If
    Else
        MsgBox ("Please Path and File Name")
    End If
Next
Set myApp = Nothing
Set mymail = Nothing
ExitSub:
End Sub
Thanks in advance
Dhruva
 

Some videos you may like

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.

GirishDhruva

Active Member
Joined
Mar 26, 2019
Messages
266
Hi Everyone,
If i run the above code it should send the mails to all the recipients with the specific attachments, but as of now it is sending only one mail and gets exited at the 2nd time run.
Can anyone suggest me what changes i need to make ??????????

It gets exited at the highlighted row

Hi everyone,

Here i am trying to send multiple attachments at one shot but as i compiled and check its exiting at the point of attachment at the send time
Any one suggest me with what changes i should do????
Here is my code
Rich (BB code):
Sub Mail()
Dim myApp As Outlook.Application, mymail As Outlook.MailItem
Dim path, signature, emp_name, subject, body As String
Dim file As String
Dim x As Long
On Error GoTo ExitSub
lastrow = Sheets("Mail").Cells(Rows.Count, "A").End(xlUp).Row
For x = 2 To lastrow
        path = Cells(x, "A").Value & "\" & Cells(x, "B").Value
        emp_name = Cells(x, "C").Value
        subject = Cells(x, "D").Value
        body = Cells(x, "E").Value
        signature = Cells(x, "G").Value
        Set myApp = New Outlook.Application
        Set mymail = myApp.CreateItem(olMailItem)
        mymail.To = Cells(x, "F").Value
    If path <> "" Then
        If (Cells(x, "D").Value) <> "" Then
            With mymail
                .subject = subject
                .Attachments.Add (path)
                .body = "Hi " & emp_name & "," & vbCrLf & body & vbCrLf & vbNewLine & "Regards," & vbCrLf & signature
                .Display
                .send
            End With
        Else
            MsgBox ("Please Enter Mail ID")
            Exit Sub
        End If
    Else
        MsgBox ("Please Path and File Name")
    End If
Next
Set myApp = Nothing
Set mymail = Nothing
ExitSub:
End Sub
Thanks in advance
Dhruva
 
Last edited:

GirishDhruva

Active Member
Joined
Mar 26, 2019
Messages
266
Hi everyone,

I have a question that can we send mails from different Mail Id's with having user name and passwords in an excel sheet.

Regards,
Dhruva
 

Watch MrExcel Video

Forum statistics

Threads
1,096,282
Messages
5,449,442
Members
405,565
Latest member
Jarmonneke

This Week's Hot Topics

Top