email a file

[jjpkraft]

I'm using the following code in the middle of a procedure to email a file to another user:

Dim OL As Object
Dim MailSendItem As Object
Dim olmailitem As String
Set OL = CreateObject("Outlook.Application")
Set MailSendItem = OL.CreateItem(0)
With MailSendItem
.Subject = "Email"
.Body = strBody
.To = strEmail
.Attachments.Add("C:File.xls")
.Send
End With

I state in the user guide that the user must have MS Exchange as it seems to work on my work and home PC (both with MS Exchange). The problem is some users with MS Exchange don't have the email send automatically. Any suggestions???

 

[gareth]

Hi there buddy

See if this code will work for you :

Sub EMAIL()


Mailee = InputBox("Please Enter Name to Send sheet to.........")
subj = InputBox("Please enter eMail Subject..............")
Application.Dialogs(xlDialogSendMail).Show arg1:="", arg2:="As Requested"
Recipients = Mailee.Subject = subj.Close
End Sub


Glad to be of assistance to people in need of help

 

[gareth]

Let me know If it does work for you

 

[jjpkraft]

Doesn't work. Get a compile error (Invalid qualifier) on the "Mailee.Subject" statement.