email from excel

dhowser · Apr 5th, 2002, 10:42 AM

I would like to be able to send e-mails to different people in my company from a list that i have on excel. I have seen several codes on the internet that doesn't seem to work for me. I am running Xcel97 and outlook 98 on NT4.0. Any help will be appreciated. Thanks.

Al Chara · Apr 5th, 2002, 11:11 AM

Do a search for email on this board. This question is well documented.

Lewis · Apr 5th, 2002, 03:42 PM

Do you mean you want to e-mail the worksheet or are you only using the worksheet as a list of e-mail addresses?

Al Chara · Apr 5th, 2002, 03:54 PM

Sounds like dhowser wants to use a list of email addresses in an excel sheet to form an email group.

Try the following code:

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 SendEmail()
Dim URL As String, Email As String
Email = Worksheets("Sheet1").Range("a1") & ";" & Worksheets("Sheet1").Range("a2")
URL = "mailto:" & Email & "?subject=" & "Insert Subject" & "&body=" & "Insert Message"
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "%s"
End Sub

Edit it to fit your needs.

Apr 5th, 2002, 11:11 AM	#2
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Do a search for email on this board. This question is well documented. __________________ Kind regards, Al Chara

Apr 5th, 2002, 03:54 PM	#4
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Sounds like dhowser wants to use a list of email addresses in an excel sheet to form an email group. Try the following code: 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 SendEmail() Dim URL As String, Email As String Email = Worksheets("Sheet1").Range("a1") & ";" & Worksheets("Sheet1").Range("a2") URL = "mailto:" & Email & "?subject=" & "Insert Subject" & "&body=" & "Insert Message" ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus Application.Wait (Now + TimeValue("0:00:01")) Application.SendKeys "%s" End Sub Edit it to fit your needs. __________________ Kind regards, Al Chara

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 5th, 2002, 10:42 AM	#1
dhowser New Member Join Date: Mar 2002 Posts: 30	I would like to be able to send e-mails to different people in my company from a list that i have on excel. I have seen several codes on the internet that doesn't seem to work for me. I am running Xcel97 and outlook 98 on NT4.0. Any help will be appreciated. Thanks.

Apr 5th, 2002, 03:42 PM	#3
Lewis Board Regular Join Date: Feb 2002 Posts: 50	Do you mean you want to e-mail the worksheet or are you only using the worksheet as a list of e-mail addresses?