.net program skal have adgang til outlook

Der findes et shareware-program ClickYes:
http://www.snapfiles.com/get/clickyes.html

Jeg mener også at have set en løsning med SendKeys.send
Kan ikke lige finde sidstnævnte. Sig til hvis det er denne løsning du foretrækker.
Det er vist på min arbejds-PC jeg har dette liggende.

til Csvendsen

Åbner den for alle 3d. programmer eller kan man selv bestemme hvilke der har adgang?

cp

Tager jeg meget fejl.

Kan det ikke lade sig gøre selv at lave en makro der reagere på henvendelse fra mit program og så automatisere "ja" tykkene.

- cp

Har fundet dette vbscript. Det er til at sende e-mail fra vb via Outlook, men kan nok tilrettes:

Private Sub VBSScriptRun()
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fsoFile = fso.createtextfile("ByPass.vbs")
  fsoFile.writeline "set fso = createobject(""WScript.Shell"")"
  fsoFile.writeline "While fso.AppActivate(""Microsoft Outlook"") = FALSE"
  fsoFile.writeline "wscript.sleep 1000"
  fsoFile.writeline "Wend"
  fsoFile.writeline "fso.SendKeys ""a"", True"
  fsoFile.writeline "fso.SendKeys ""y"", True"
  fsoFile.writeline "wscript.sleep 7000"
  fsoFile.writeline "While fso.appactivate(""Microsoft Outlook"") = False"
  fsoFile.writeline "wscript.sleep 1000"
  fsoFile.writeline "Wend"
  fsoFile.writeline "fso.sendkeys ""y"", True"
  fsoFile.Close
  Set wshShell = CreateObject("Wscript.Shell")
  wshShell.Run ("ByPass.vbs")
End Sub

Nu er jeg ikke helt inde i VBscripts i filen, men kan du se om denne her kode vil virke.


Private Sub VBSScriptRun(antal as integer)
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fsoFile = fso.createtextfile("ByPass.vbs")
  fsoFile.writeline "set fso = createobject(""WScript.Shell"")"
  fsoFile.writeline "While fso.AppActivate(""Microsoft Outlook"") = FALSE"
  fsoFile.writeline "wscript.sleep 1000"
  fsoFile.writeline "Wend"
  fsoFile.writeline "set t as integer"
  fsoFile.writeline "While t < " & antal + 10 &"""
  fsoFile.writeline "fso.SendKeys ""y"", True"
  fsoFile.writeline "wscript.sleep 1000"
  fsoFile.writeline "t = t + 1"
  fsoFile.writeline "Wend"
  fsoFile.Close
  Set wshShell = CreateObject("Wscript.Shell")
  wshShell.Run ("ByPass.vbs")
end sub

Ved du hvor bypass.vbs bliver gemt og kan jeg slette den igen. fx i slutningen af denne sub.

Umiddelbart ser det ok ud, men prøv at indsætte nogle ekstra linier:
wscript.echo "Linie 1" osv., og kør det manuelt, så kommer en pop-up med hvor langt du kommer, hvis der skulle være fejl.
ByPass.vbs bliver gemt i mappen hvor vb-programmet afvikles fra. Bliver overskrevet næste gang subrutinen kaldes, men kan jo også slettes efter kørsel.

Denne kode virke som jeg ønsker det.

Næææsten. den vil ikke slette filen igen?

Private Sub VBSScriptRunByPassOL(ByVal antal As Integer, ByVal antalOpstartKald As Integer)
        ' For at bruge dette scribt indsæt flg.
        ' Me.VBSScriptRunByPassOL(vMedarbejder.Length)
        Dim fso = CreateObject("Scripting.FileSystemObject")
        Dim fsoFile = fso.createtextfile("ByPassO.vbs") ' gemmes her : C:\Documents and Settings\jabm\My Documents\Visual Studio Projects\HvemErHvorApplication\bin
        fsoFile.writeline("set fso = createobject(""WScript.Shell"")")
        fsoFile.writeline("While fso.AppActivate(""Microsoft Outlook"") = FALSE")
        fsoFile.writeline("wscript.sleep 1000") ' 1000 = 1 sek.
        fsoFile.writeline("Wend")
        fsoFile.writeline("dim t")
        fsoFile.writeline("t = 0")
        fsoFile.writeline("While t < " & ((antal * 2) + antalOpstartKald).ToString)
        fsoFile.writeline("fso.SendKeys ""j"", True") ' "j" da det er dansk
        fsoFile.writeline("wscript.sleep 1000") ' 1000 = 1 sek.
        fsoFile.writeline("t = t + 1")
        fsoFile.writeline("Wend")
        fsoFile.Close()
        Dim wshShell = CreateObject("Wscript.Shell")
        wshShell.Run("ByPassO.vbs")
        ' hvis denne fil "ByPassO.vbs" skal slettes kan det gøres med linien
        fsoFile.delete
    End Sub

Hvad kommer den med af fejlmelding. Prøv med try, catch.....
Jeg tror det er fordi du forsøger at slette scriptet inden det er afviklet færdigt.
Kan ikke lige huske om vb fortsætter i programkoden efter wshShell.run
Mener at man kan kalde det på en måde, så vb-programmet først fortsætter med næste linie når scriptet er kørt.
Ellers kan du beregne antal sekunder det tager at køre scriptet og så først slette det herefter.

det med fejl fordi scriptet ikke er færdig. giver god mening:)

1000 tak for hjælpen. lukker