Multiple attachments to send in outlook at one shot

GirishDhruva

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

Excel Facts

Format cells as date
Select range and press Ctrl+Shift+3 to format cells as date. (Shift 3 is the # sign which sort of looks like a small calendar).
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:
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,213,531
Messages
6,114,172
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top