Posting a workbook to Outlook

[pcc]

I have the code below courtesy of this forum, that allows the current workbook to be posted as an attachement in an E-mail sent to a public folder on the company's Outlook system, and this works fine.

Sub test_code()
Dim nam As String
nam = "Bid sheet update"
Dim EmailTo As String 'email to the public folders
Dim oApp As Object 'Outlook.Application
Dim oItem As Object 'Outlook.MailItem
Dim recipients As String
recip = "foldername@companyname.com"
Set oApp = CreateObject("Outlook.Application")
Set oItem = oApp.CreateItem(0)
With oItem
.To = recip
.Subject = nam
.Body = "Some text here"
.attachments.Add ActiveWorkbook.FullName
.Importance = 0 ' 2= HIGH importance, Low = 0, Medium = 1
.Send
End With
Set oItem = Nothing
Set oApp = Nothing

End Sub

What I would ideally like to do is post the workbook itself (ie not as an E-mail attachment). The only way I know is to drag and drop the file from Explorer to Outlook, but I would like to do this using Excel VB. Can anyone offer any assisatance?

Thanks

 

[pcc]

Anyone have any ideas? I would really like to get the workbook posted directly rather than as an attachment.

All suggestions welcomed!

 

[starl]

try www.outlookcode.com

 

[pcc]

Thanks for the link - I am checking it out right now.
Cheers

 

[vaibhavsan78]

Need help in sending emails

Hi there!

Would highly appreciate if somebody could get me the codes for my two tasks.

1) I've a worksheet which maintains client details in a tabular form (columns being client ID, name, address, DOB, bank name, Bank account no,email, telephone no, etc).

I need to update this info (every year). For that I need to send emails to all the clients. The email would mention the details I've in my file for that particular client. The client would communicate to us if any of these details are changed.

Can someone get a code for me to do this??

2) This should be very simple. We need to inform each new clients\ the client ID allotted to him. The client ID is say in column B and the client email ID is in column E. The macro should send the email to the email address in column E of the active row. In the body of the message, it should say that "Your client ID is (Col B of that row)"

I hope somebody helps.

Cheers