Multiple attachments to send in outlook at one shot

[GirishDhruva]

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

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

 

[GirishDhruva]

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

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

 

[GirishDhruva]

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