Email-Progr mit beenden

Private Sub Mail(email As String, _ Optional Subject As String, _ Optional Body As String) Call ShellExecute(0&, "Open", "mailto:" + email + _ "?Subject=" + Subject + "&Body=" + Body, "1", "2", 1) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Klaus,
so kannst du das geöffnete Email-Progr beenden:

Code:

Sub Mail_beenden()
Dim WshShell As Object, objWMIService As Object
Dim strZuordnung As String, posEXE As Integer, pos As Integer
Dim Anwendung As String, colProcessList, objProcess
Set WshShell = CreateObject("WScript.Shell")
strZuordnung = WshShell.RegRead("HKEY_CLASSES_ROOT\mailto\shell\open\command\")
strZuordnung = Replace(strZuordnung, Chr(34), "")
posEXE = InStr(UCase(strZuordnung), ".EXE")
If posEXE > 0 Then
Anwendung = Left(strZuordnung, posEXE + 3)
pos = InStrRev(Anwendung, "\")
Anwendung = "'" & Mid(Anwendung, pos + 1) & "'"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & Anwendung)
For Each objProcess In colProcessList
objProcess.Terminate
Next
Set objWMIService = Nothing
End If
Set WshShell = Nothing
End Sub

mfg Anton

Hallo Klaus,
probier's so:

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
Private Sub Mail(email As String, _
Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + email + _
"?Subject=" + Subject + "&Body=" + Body, "1", "2", 1)
End Sub
Sub test()
Mail "klaus@web.de", "Betreff", "Body"
If MsgBox("Wollen Sie E-Mail Programm beenden?", vbYesNo, "Abfrage") = vbYes Then
'E-Mail Programm beenden , dabei spielt es keine Rolle,
'ob die Email gesendet wurde oder nicht
Mail_beenden
End If
End Sub
Private Sub Mail_beenden()
Dim WshShell As Object, objWMIService As Object
Dim strZuordnung As String, posEXE As Integer, pos As Integer
Dim Anwendung As String, colProcessList, objProcess
Set WshShell = CreateObject("WScript.Shell")
strZuordnung = WshShell.RegRead("HKEY_CLASSES_ROOT\mailto\shell\open\command\")
strZuordnung = Replace(strZuordnung, Chr(34), "")
posEXE = InStr(UCase(strZuordnung), ".EXE")
If posEXE > 0 Then
Anwendung = Left(strZuordnung, posEXE + 3)
pos = InStrRev(Anwendung, "\")
Anwendung = "'" & Mid(Anwendung, pos + 1) & "'"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & Anwendung)
For Each objProcess In colProcessList
objProcess.Terminate
Next
Set objWMIService = Nothing
End If
Set WshShell = Nothing
End Sub

mfg Anton

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread