Attach File To An Email Using VB Code

[majdi.marmas]

Hi,

I have the code below and I need help to modify it by
1) adding a line telling the macro to attach a cetain file from my desktop ( for example C:\test.pdf )
2) I would like to change the charecters inside the mails for some lines to bold

Can anyone help please. Thank you in advance

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub Notification()
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String
    Dim r As Integer, x As Double
    
    NumOfRows = Sheets("mail template").Cells(Rows.Count, 2).End(xlUp).Row
For r = 2 To NumOfRows

 
        Email = Cells(r, 3)

        Subj = "Assigned to You"

        Msg = "" & vbCrLf & vbCrLf
        Msg = Msg & "Dear XY," & vbCrLf & vbCrLf
        
        Msg = Msg & "Your are requested to contact you department's manager " & Cells(r, 15) & "  for review." & vbCrLf & vbCrLf
        
        Msg = Msg & "Please contact the interviewer promptly" & vbCrLf & vbCrLf
        
        Msg = Msg & "Candidate:       " & Cells(r, 3) & vbCrLf
        Msg = Msg & "Capability:      " & "forums" & vbCrLf
   
       
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
                
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

         URL = "mailto:" & Email & "?cc=mail@mail.com" & "?subject=" & Subj & "&body=" & Msg

        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next r
End Sub

[Excel Fox]

majdi.marmas, welcome to the ExcelFox community.

Why don't you use one of the more conventional methods of sending a mail, using VBA. You can find a lot of links in this forum (and on the internet generally)

Some examples are

http://www.excelfox.com/forum/f2/sen...ach-files-498/

http://www.excelfox.com/forum/f2/exc...end-email-556/

[Excel Fox]

Note that these are for sending email via Outlook. If you are using Lotus Notes, or if you are not able to figure out the codes in the threads suggested above, please post back.

[majdi.marmas]

Thank you very much for your replay, I have find some solution to add to my existing code. I'd like to share it in case someone would like to use it.

 URL = "mailto:" & Email & "?Attach=C:\test1.pdf?CC=" & cpy & "?subject=" & Subj & "&body=" & Msg