• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA outlook openen

  • Onderwerp starter Onderwerp starter thst
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

thst

Gebruiker
Lid geworden
10 apr 2001
Berichten
655
Hallo excel experts,
Code:
Sub test()


Dim otl
Set otl = Nothing
Dim oShell
Set oShell = CreateObject("WScript.Shell")
On Error Resume Next
Set otl = GetObject("outlook.application")
On Error GoTo 0
If otl Is Nothing Then
'not running
oShell.Run ("regedit /s " & "H:publicpmtoff.reg")
oShell.Run ("regedit /s " & "H:publicpmt.reg")
oShell.Run ("Outlook")
Else
'running
End If

Set otl = Nothing
Set oShell = Nothing
End Sub

Bijgaand een code om outlook te openen, maar als outlook geopend is moet de code niet voor de 2e keer outlook openen, wie kan me vertellen wat ik moet aanpassen in de code ?

Angela
 
thst,

Als je de code nu eens met F8 doorloop.
Misschien dat je dan ziet waar het fout gaat.
 
Ik weet niet waar je fout zit maar ik gebruik volgende code om het emailprogramma te openen.

Dit stukje komt in het gedeelte 'general' van je code :
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)

Achter een button moet het volgende komen :
Code:
Private Sub ButtonMail_Click()
    ' Label 's controltooltip is the email address:
     Dim szEmailAddy As String
       szEmailAddy = Me.ButtonMail.ControlTipText
        
     ShellExecute 0&, "open", "mailto:" & szEmailAddy, _
       vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Misschien kan dit je helpen
Bart
 
Heb helpmij en het internet afgezocht voor oplossingen maar niets gevonden.
Het probleem speelt wel bij meerdere mensen.
Als niemand me kan helpen sluit ik het topic maar af.

Angela
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan