Customizing Outlook with attachments!

Hi,

I need help in customizing Outlook with attaching files.
Let me brief what i need.

I customized with a help of my friend sending the invoices thru email.
I need to attach PDF files in every attachments.

Anyone can help me out in this

Thanks

Sub SendEmail()
  Dim OutlookApp As Object
  Dim MItem As Object
  Dim cell As Range
  Dim Subj As String
  Dim EmailAddr As String
  Dim Recipient As String
  Dim August As String
  Dim Msg, Filename1, Filename2, Filename3, Filename4, Filename5, Filename6 As String
    Dim ccName As String
  
    
  'Create Outlook object
  Set OutlookApp = CreateObject("Outlook.Application")
  
  'Loop through the rows
  For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
    If cell.Value Like "*@*" Then
      'Get the data
      Subj = "Billing Details for the Month of July'07"
      Recipient = cell.Offset(0, -1).Value
      EmailAddr = cell.Value
      ccName = cell.Offset(0, 3).Value
      Filename1 = cell.Offset(0, 4).Value
      Filename2 = cell.Offset(0, 5).Value
      Filename3 = cell.Offset(0, 6).Value
      Filename4 = cell.Offset(0, 7).Value
      Filename5 = cell.Offset(0, 8).Value
      Filename6 = cell.Offset(0, 9).Value
      August = Format(cell.Offset(0, 1).Value, "$0,000.")
            
     'Compose message
      Msg = "Hi " & Recipient & vbCrLf & vbCrLf
      Msg = Msg & "  Please find attached the invoices "

      Msg = Msg & ""
      Msg = Msg & August & vbCrLf & vbCrLf
      Msg = Msg & "Thanks" & vbCrLf
      Msg = Msg & "Sign"
    
      'Create Mail Item and send it
      Set MItem = OutlookApp.CreateItem(0)
      With MItem
        .To = EmailAddr
        .cc = ccName
        .Subject = Subj
        .Body = Msg
        If Trim(Filename1) <> "" Then
        .attachments.Add Filename1
        End If
        If Trim(Filename2) <> "" Then
        .attachments.Add Filename2
        End If
        If Trim(Filename3) <> "" Then
        .attachments.Add Filename3
        End If
        If Trim(Filename4) <> "" Then
        .attachments.Add Filename4
        End If
        If Trim(Filename5) <> "" Then
        .attachments.Add Filename5
        End If
        If Trim(Filename6) <> "" Then
        .attachments.Add Filename6
        End If
        .Display
        
      End With
    End If
  Next
End Sub

:bump:

Hello nandhamnk,

It isn't clear to me from your post what problems you are having with the attachments. Can you provide more examples or details about the problem?

Sincerely,
Leith Ross

Yeah.Let me explain.

I have created a macro with the help of my friend.
He created six attachements to attach the files.

Now i created a folder,where the attachments need to be picked from.

For Ex,
Iam having invoice.pdf file,its in the folder Invoice.If i give the link of attachment in the excel sheet,it needs to pick the PDF file in the email attachment ( Folder may contain many files too )

Hope i cleared ur doubts.

Waiting for your positive reply

Thanks

:bump:

Anyone can help me out?