Private Sub Email2Client(cFileName, cMsgSub) Dim cEmailList As String Dim oOutlook As Object Dim oEmailmsg As Object Set oOutlook = GetObject(, "outlook.application") Set oEmailmsg = oOutlook.CreateItem(0) cEmailList = "abc@everybody.com" oEmailmsg.Recipients.Add (cEmailList) oEmailmsg.Attachments.Add cFileName, 1 oEmailmsg.Subject = cMsgSub oEmailmsg.Display End Sub