Multiple attachments to send in outlook at one shot

GirishDhruva

Active Member
Joined
Mar 26, 2019
Messages
273
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

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.

GirishDhruva

Active Member
Joined
Mar 26, 2019
Messages
273
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
273
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,099,132
Messages
5,466,857
Members
406,505
Latest member
jvdm

This Week's Hot Topics

Top