I wanted to send new newsgroup message to 30 students with a different
Newsgrop ID Name. from EXCEL to OUTLOOK EXPRESS.
The code below will post an email from Outlook to as many people as I want.
However, I want to post a message to a 30 different newsgroups instead of
emails.
I think ShellExecute 0& is the key see below. This code will open an
email page from Outlook Express to post an regular email, I want it to open
a newsgroup message page from Outlook express instead. Please see below
GOD BLESS YOU ALL.
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
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 Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double
For r = 2 To 2 'data in rows 2-4
' Get the email address
Email = Cells(r, 2)
' Message subject
Subj = Cells(r, 1)
' Compose the message
Msg = Cells(r, 3)
' Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
' Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf,
"%0D%0A")
' Create the URL
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
vbNormalFocus
' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:01"))
' Application.SendKeys "%s"
Next r
End Sub
Sam Sebaihi
Faculty
Western International University
Associate Programs
(alternate email)
Phone #: (405)315-8223 Time zone: Pacific Time