1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

  Dim urlToConvert As String = "http://neevia.com"

  Dim DC As Object
  DC = CreateObject("Neevia.docConverter")

  DC.setParameter("DocumentOutputFormat", "PDF")
  DC.setParameter("DocumentOutputFolder", "c:\users\public\")
  DC.setParameter("PDFAutoRotatePage", "All")

  Dim rv As Integer
  rv = DC.submitUrl(urlToConvert, "neevia.url", "")

  If (rv <> 0) Then
    MsgBox(" *** submitUrl error **** ")
  Else
    rv = 2
    While (rv = 2)
      rv = DC.checkStatus("neevia.url", "")
      Application.DoEvents()
      DC.doSleep(1000)
    End While

    If (rv = 0) Then
      MsgBox(" Converted successfully")
    Else
      MsgBox(" Error converting")
    End If
  End If