Results 1 to 2 of 2
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    send email with Click Yes...dubt! (2000)

    i use this code to send email with Click Yes to suppress popup security...
    But if a PC not have the new update of Outlook security Click Yes work in other case?
    Option Explicit
    Sub EmailWithClickYes()


    Dim objOL As Object
    Dim objMail As Object
    Dim objwShell As Object
    Dim strEmail As String

    strEmail = "GSS.ITALY@IOL.IT"

    On Error GoTo Cleanup

    Set objwShell = CreateObject("wscript.shell")
    objwShell.Run ("""C:ProgrammiExpress ClickYesClickYes.exe"" -activate")

    Set objOL = CreateObject("Outlook.Application")

    Set objMail = objOL.CreateItem(0)
    With objMail
    .To = strEmail
    .Subject = "Test click yes"
    .Body = "This is a test
    .Send
    End With

    objwShell.Run ("""C:ProgrammiExpress ClickYesClickYes.exe"" -stop")

    Cleanup:

    Set objMail = Nothing
    Set objOL = Nothing
    Set objwShell = Nothing
    On Error GoTo 0

    End Sub

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: send email with Click Yes...dubt! (2000)

    Why start ClickYes in your program? Those users who need it should set it to start automatically, users who don't need it don't have to install ClickYes at all.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •