Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
*anyone? please help
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|