?
Solved

Send an email instead of turn on sound

Posted on 2006-03-24
4
Medium Priority
?
166 Views
Last Modified: 2010-05-01
See http://www.experts-exchange.com/Community_Support/New_to_EE/Q_21783899.html

Looking for resources to change this from generating a sound, to sending an email:
(Glad to increase/split points for all helpful comments!)

ameba's mod of EE QuickPost (http://www.eeqp.com/) defines "Neat users" and turn on sound for event: "New Question by Neat user" accomplished by modifying ...\Program Files\Quickpost\QHelper_VB6.zip:

Unzip to separate folder, ppen project QHelperTest.vbp and modify IReceiver_Notify():

Private Sub IReceiver_Notify(ByVal Title As String, ByVal QBody As String, ByVal Questioner As String, ByVal QuestionerID As Long, ByVal QID As Long, ByVal TopicArea As String, ByVal TopicAreaID As String, ByVal TopicAreaIDNum As Long)
    ' existing code
    txtTitle.Text = Title
    txtQBody.Text = Left(QBody, 32000)
   
    ' insert new code
    On Error Resume Next
    Dim favquestioners As String, URL As String
    favquestioners = ".controltheweb.angelIII.ameba.shekerra.flavo.AnnieMod."
   
    If InStr(favquestioners, "." & Questioner & ".") > 0 Then
        colMyQuestions.Add "", "k" & QID ' add to collection
        If Err Then
            Err.Clear ' already in collection
        Else
            ' add to list
            List1.AddItem QID & " " & Questioner

            ' subscribe and open in default browser
            URL = "http://www.experts-exchange.com/questionNotify.jsp?qid=" & QID & "&subscribe=1"
            Call ShellExecute(Me.hWnd, vbNullString, URL, vbNullString, "c:\", 1)
        End If
    End If
End Sub

' this is needed in Form declarations
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
Private colMyQuestions As New Collection

Glad to increase/split points for all helpful comments!
0
Comment
Question by:controltheweb
  • 4
4 Comments
 
LVL 35

Accepted Solution

by:
[ fanpages ] earned 1400 total points
ID: 16278924
What e-mail client are you using?

I haven't tried this (as I don't have QuickPostM ir Visual Basic installed), but a quick suggestion (to cater for a majority of e-mail clients that use [CTRL]+[S] to send messages) could be...

Changing:
URL = "http://www.experts-exchange.com/questionNotify.jsp?qid=" & QID & "&subscribe=1"

To:
URL = "mailto:yourname@domain.com?subject=See%20QID%20" & QID & "&body=http://www.experts-exchange.com/questionNotify.jsp?qid=" & QID & "&subscribe=1"

Call ShellExecute(Me.hWnd, vbNullString, URL, vbNullString, "c:\", 1)
Application.Wait (Now + TimeValue("00:00:02"))
Application.SendKeys "%s"


BFN,

fp.
[ http://www.justgiving.com/100RoundsOfSparring ]
0
 
LVL 35

Expert Comment

by:[ fanpages ]
ID: 16278925
"I haven't tried this (as I don't have QuickPostM ir Visual Basic installed)"
=
"I haven't tried this (as I don't have QuickPost or Visual Basic installed)"

(Sorry, don't know what happened there!?!)
0
 
LVL 35

Expert Comment

by:[ fanpages ]
ID: 16340536
Do you need any further assistance, controltheweb?

If not, then please close the question.

If you do need additional information, please let us know.

Thank you for your feedback in any respect.

BFN,

fp.
[ http://www.justgiving.com/100RoundsOfSparring ]
0
 
LVL 35

Expert Comment

by:[ fanpages ]
ID: 16351775
Thanks for closing the question.

BFN,

fp.
0

Featured Post

Prep for the ITIL® Foundation Certification Exam

December’s Course of the Month is now available! Enroll to learn ITIL® Foundation best practices for delivering IT services effectively and efficiently.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Suggested Courses
Course of the Month14 days, 23 hours left to enroll

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question