Quantcast
Channel: VBForums - ASP, VB Script
Viewing all 699 articles
Browse latest View live
↧

Usage of MSXML2.ServerXMLHTTP in vb script

November 13, 2016, 10:53 pm
$
0
0
Hi I am new to vb script and we are calling webservice function from vb script by using "MSSOAP.SoapClient30" as below and getting the response.
everything is working fine but now we are trying to use "MSXML2.ServerXMLHTTP.6.0" instead of "MSSOAP.SoapClient30" in vb script to call the webservice function as below and it is returning the response however the response we are getting is different then previous one
what changes should I do to get the response same as previous one

vb script code using "MSSOAP.SoapClient30"


sAdminSOAPUrl = "http://usalvwcrmssqa08.infor.com:80/ss1001wliis_qa08/ecs/webservices/AdminService?wsdl"
Dim vaData
Set soapClient3 = CreateObject("MSSOAP.SoapClient30")
Call soapClient3.MSSoapInit(sAdminSOAPUrl, "AdminService", "AdminService")
soapClient3.ConnectorProperty("EndPointURL") = sAdminSOAPUrl

vaData = soapClient3.exportDeployment("psoli","psoli","oob_data")
WScript.Echo vaData



vb script code using "MSXML2.ServerXMLHTTP.6.0"


' Namespaces.
Dim NS, NS_SOAP, NS_SOAPENC, NS_XSI, NS_XSD
NS = "http://www.w3schools.com/webservices/"
NS_SOAP = "http://schemas.xmlsoap.org/soap/envelope/"

' Creates an XML DOM object.
Set DOM = CreateObject("MSXML2.DOMDocument.6.0")

' XML DOM objects.
Dim Envelope, Body, Operation, Param
Const URL = "http://usalvwcrmssqa08.infor.com:80/ss1001wliis_qa08/ecs/webservices/AdminService?wsdl"

' Creates the main elements.
Set Envelope = DOM.createNode(1, "soap:Envelope", NS_SOAP)
DOM.appendChild Envelope
Set Body = DOM.createElement("soap:Body")
Envelope.appendChild Body

' Creates an element for the exportDeployment function.
Set Operation = DOM.createNode(1, "exportDeployment","")
Body.appendChild Operation

' Creates an element for the exportDeployment parameter
Set Param = DOM.createNode(1, "username","")
Param.Text = "psoli"
Operation.appendChild Param

Set Param1 = DOM.createNode(1, "password","")
Param1.Text = "psoli"
Operation.appendChild Param1

Set Param2 = DOM.createNode(1, "deploymentName","")
Param2.Text = "oob_data"
Operation.appendChild Param2

' Releases the objects.
Set Param = Nothing
Set Operation = Nothing
Set Body = Nothing
Set Envelope = Nothing
DIM test

Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
XMLHTTP.Open "POST", URL, False
XMLHTTP.setRequestHeader "Content-Type", "multipart/form-data; User-Agent: SOAP Sdk"
XMLHTTP.setRequestHeader "SOAPAction", "AdminService"
XMLHTTP.send DOM.xml

' Loads the response to the DOM object.
DOM.LoadXML XMLHTTP.responseXML.xml
'WScript.Echo XMLHTTP.responseXML.xml

WScript.Echo XMLHTTP.responseXML.xml

' Releases the object.
Set XMLHTTP = Nothing

' XML DOM objects.
Dim NodeList, Element, vaData

' Searches for the exportDeploymentReturn object, which contains the value.
Set NodeList = DOM.getElementsByTagName("*")
For Each Element in NodeList
If Element.tagName = "exportDeploymentReturn" Then
vaData = Element.Text
Exit For
End If
Next

WScript.Echo vaData
↧
Search

Issue with webservice response while using MSXML2.ServerXMLHTTP.6.0 in vb script

November 15, 2016, 6:05 am
$
0
0
Hi We are calling the webservice function from vb script by using "MSSOAP.SoapClient30", the function returns the byte array and we are saving that as *.jar file below is the sample code

============================================================
sAdminSOAPUrl = "http://testapp.com:80/test/ecs/webservices/AdminService?wsdl"
Dim vaData
Set soapClient3 = CreateObject("MSSOAP.SoapClient30")
Call soapClient3.MSSoapInit(sAdminSOAPUrl, "AdminService", "AdminService")
soapClient3.ConnectorProperty("EndPointURL") = sAdminSOAPUrl

vaData = soapClient3.exportDeployment("test","test","test_data")

If (IsArray(vaData)) Then
rgData = vaData
WScript.Echo rgData
sFilename = sPath & "xplbio.jar"
hFile = FreeFile()

Open sFilename For Binary As #hFile
Put #hFile, , rgData
Close #hFile

Dim fso As New FileSystemObject
fso.CopyFile sFilename, sPath & sExportName & ".jar"
fso.DeleteFile sFilename, True
End If
============================================================

now we are trying to use the "MSXML2.ServerXMLHTTP.6.0" instead of "MSSOAP.SoapClient30" but facing issues while writing the response into *.jar file and its being corrupt.
we have tried by channging the respose header as below but facing the same issue
"Content-Type", "text/xml; charset=utf-8",
"Content-Type" "multipart/form-data",
"Content-Type" "application/x-www-form-urlencoded",

is there any thing which I am missing please suggest, below is the sample updated code

==============================================================
' Namespaces.
Dim NS, NS_SOAP, NS_SOAPENC, NS_XSI, NS_XSD
NS_SOAP = "http://schemas.xmlsoap.org/soap/envelope/"

' Creates an XML DOM object.
Set DOM = CreateObject("MSXML2.DOMDocument.6.0")

' XML DOM objects.
Dim Envelope, Body, Operation, Param
Const URL = "http://testapp.com:80/test/ecs/webservices/AdminService?wsdl"

' Creates the main elements.
Set Envelope = DOM.createNode(1, "soap:Envelope", NS_SOAP)
DOM.appendChild Envelope
Set Body = DOM.createElement("soap:Body")
Envelope.appendChild Body

' Creates an element for the exportDeployment function.
Set Operation = DOM.createNode(1, "exportDeployment","")
Body.appendChild Operation

' Creates an element for the exportDeployment parameter
Set Param = DOM.createNode(1, "username","")
Param.Text = "test"
Operation.appendChild Param

Set Param1 = DOM.createNode(1, "password","")
Param1.Text = "test"
Operation.appendChild Param1

Set Param2 = DOM.createNode(1, "deploymentName","")
Param2.Text = "test_data"
Operation.appendChild Param2

DIM test

Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
XMLHTTP.Open "POST", URL, False
XMLHTTP.setRequestHeader "Content-Type", "multipart/form-data; User-Agent: SOAP Sdk"
XMLHTTP.setRequestHeader "SOAPAction", URL
XMLHTTP.send DOM.xml

' Loads the response to the DOM object.
DOM.LoadXML XMLHTTP.responseXML.xml

' XML DOM objects.
Dim NodeList, Element, vaData

' Searches for the exportDeploymentReturn object, which contains the value.
Set NodeList = DOM.getElementsByTagName("*")
For Each Element in NodeList
If Element.tagName = "exportDeploymentReturn" Then
vaData = Element.Text
Exit For
End If
Next

If (IsArray(vaData)) Then
rgData = vaData
WScript.Echo rgData
sFilename = sPath & "xplbio.jar"
hFile = FreeFile()

Open sFilename For Binary As #hFile
Put #hFile, , rgData
Close #hFile

Dim fso As New FileSystemObject
fso.CopyFile sFilename, sPath & sExportName & ".jar"
fso.DeleteFile sFilename, True
End If
====================================================================
↧
↧

[RESOLVED] Combine 2 vbs Scripts

November 18, 2016, 3:18 am
$
0
0
Hello to everyone
I'm trying to make a vbs script to to run a batch/cmd file elevated/with admin priviledges. Both files are in the same folder.
I also want to be able to run the script from no matter which drive or directery the folder is placed.
I mean using the equivalent of %~dp0 variable in the vbs script. Right now I have 2 vbs scripts.
One runs the cmd elevated, and the second one can run the cmd from inside the folder where they bothe are placed.
My problem: I'm unable to put the code of the 2 vbs scripts to one and a single vbs script file. As you will notice, I'm not so experienced in creating scripts. I need your help please.

First script to run cmd with admin priviledges:

Code:
et WshShell = WScript.CreateObject("WScript.Shell")
  If WScript.Arguments.length = 0 Then
  Set ObjShell = CreateObject("Shell.Application")
  ObjShell.ShellExecute "wscript.exe", """" & _
  WScript.ScriptFullName & """" &_
  " RunAsAdministrator", , "runas", 1
  Wscript.Quit
  End if

Set WinScriptHost = CreateObject("WScript.Shell")
CreateObject("Wscript.Shell").Run "cmd /k " & chr(34) & "C:\Users\xxxxx\Documents\file.cmd" & chr(34), 0, True
Set WinScriptHost = Nothing
Second script to run cmd from the same folder as the vbs script:

Code:
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
sScriptDir = oFSO.GetParentFolderName(WScript.ScriptFullName)
CreateObject("Wscript.Shell").Run "file.cmd",0,True
Thank You
↧

Auto Import Script not Working

November 27, 2016, 1:33 pm
$
0
0
Hi all,

I'm an absolute beginner with VB hence I might ask some silly questions.
I have a VB script getting triggered via a Batch file which resulots in data being imported for last day.
Below is the code for VB and Batch file.
Please let me know if you see any error in the code.

VB Script
Code:
rem
rem XLink_Import.vbs
rem

Set oShell = WScript.CreateObject("WScript.Shell")

' filename = oShell.ExpandEnvironmentStrings("today_xlink.bat")
' Set objFileSystem = CreateObject("Scripting.fileSystemObject")
' Set oFile = objFileSystem.CreateTextFile(filename, TRUE)

Dim i
Dim ImportStartOffset, ImportedNumberOfDays

If WScript.Arguments.length > 0 Then
    For i=0 to WScript.Arguments.length-1
        Arg = WScript.Arguments(i)
        If Left(Arg,1) = "-" Then
            If ( Arg = "-o" ) Then
                ImportStartOffset = WScript.Arguments(i+1)
            End if
            If ( Arg = "-n" or Arg = "-l" ) Then
                ImportedNumberOfDays = WScript.Arguments(i+1)
            End if
        End if
    Next
End If

rem Prepare the import start date

Dim Dy, Mth
Dim ImportDate
ImportDate = Now + ImportStartOffset
Dy = Day(ImportDate)
Mth = Month(ImportDate)
If Len(Dy) = 1 Then Dy = "0" & Dy
If Len(Mth) = 1 Then Mth = "0" & Mth
ImportStartDate = Dy & "/" & Mth & "/" & Year(ImportDate)

rem Prepare import script to run (not useed yet)
rem oFile.WriteLine("isps_ul.exe -t -d " & todaydate & " -L 1")
rem oFile.Close

rem Run XLink import

wscript.echo "isps_ul.exe -t -d " & ImportStartDate & " -L " & ImportedNumberOfDays
oShell.Run "isps_ul.exe -t -d " & ImportStartDate & " -L " & ImportedNumberOfDays, 1, true
Batch File
Code:
@echo off
rem
rem XLink_Import.bat
rem
rem Manually starts an Xlink import starting today + a StartOffset of some days.
rem Imported number of days can also be set.
rem

set ImportStartOffset=0
set ImportedNumberOfDays=1

cscript XLink_Import.vbs -o %ImportStartOffset% -n %ImportedNumberOfDays%

pause
↧

Error 3110 appears after server upgrade for all users

December 7, 2016, 11:08 am
$
0
0
Hi,

Recently our ISP upgraded us to a new server platform, and all hell broke loose. This particular problem involves a query involved in moving a newly created ZIP file into a specific folder on our website. The folder is there, the error message says it is not there. The ZIP file does get created and after the error it is dumped into the root directory instead of a folder two levels deep, which the screen error message references as "root/Data/Zip folder", which is the correct original path.

I don't think this is just an MSAccess problem, so I thought I'd post it here. I don't know where else it might be best answered.

In our MS ACCESS program error log the 3110 error details are:

SOURCE: DAO.QueryDef , Global.setQueryConnection() DESCRIPTION: Could not read definitions; no read definitions permission for table or query 'BillReportQueryOnDemand'

This is occurring for all users on multiple devices. The only commonality is we all use Microsoft Office Access 2003 in a program developed years ago using classic ASP and vbscript.

This problem appeared globally for all users right after the ISP moved us to the new server.

Since it appears to be permissions, and it also appears to be a server side issue since all of us users with independent versions of MSAccess have experienced the same problem would anyone know which way I should look to try and solve this? Admittedly I'm not well versed in VBscript or classic ASP so I'm out of my depth on this one.

Tech support from this provider is marginal at best. They insist on being able to recreate any errors we experience despite being given screen cap images of error codes, log details as well as details on when, where, and how the errors occurred.

Thanks for any feedback.
↧
↧

Advise on Redirect with Custom Request headers

December 12, 2016, 6:04 pm
$
0
0
My team hosts a set of central web pages that is used by many different organizations. These pages change their look and feel (fonts, images, etc.) based on which organization calls the page. This is determined by a custom HTTP Request Header: "organization". I am building a test site to test the look and feel of ALL of the different organizations.

My plan was to have a web site with a drop down where our QA people can choose and Org then click something to open the central web pages with the look and feel for that org. Note that when calling these central pages the URL in the browser MUST change to the URL of the page. So far all ideas/samples I can find involve getting the page content from the remote server and displaying it IN the calling page (URL does NOT change). Bottom line is I need to be able to set HTTP Request Headers then open a new URL with those headers.

I can use JavaScript, ASP Classic, and/or Java. Any ideas to get me started?
↧

VB script to filter and update value in different sheet

December 26, 2016, 1:12 am
$
0
0
Hi Folks,

I'm new to VB and need guidance with my task in excel.

*I have an excel workbook with multiple sheet (max 6 sheets).

*I need to filter values (pass/fail/in progress)in Sheet 3 ("O" column) which has the name as "Latency" and update the "pass" count in Sheet 1 in a specific row (lets say AE4) and respectively for other filter values.e same code to

Once this is done I can modify the same code to other palces in my worksheet.
↧

how to send a text or message to custom display pole

December 26, 2016, 11:59 pm
$
0
0
Can anyone please help me out on the topic of sending a display message or text to silicon labs cp210x usb to uart bridge controller step by step by a simple visual basic program... i mean am a begginner in visual basic so please could you please a provide a video for writing code n executing it step by step or else with screenshots for program how to write visual basic ...actually i am not aware of anything in visual basic ..i just want to display a text in custom pole display with visual basic program because i just want to try once how it works and how d code will be ... n please can i know what details u need i mean pole display name etc something like dat ur asking plz let me know ....
if the program will be in visual basic it would be nice thank u
↧
Search

Sending PDF files via SMTP to one recipient in separate mails

January 12, 2017, 6:19 am
$
0
0
Hi all,

I'd like to ask you for some advice or help with my problem. Unfortuantely, I'm not a VBscript guru and have no idea how to handle my problem.

Description:
- there is a folder called C:\Invoices
- there are few PDF files in this folder
- there is also folder C:\Invoices\Sent
- I have SMTP server SMTP.TEST.XX
- I have only one e-mail recipient ABC@TEST.XX

I would like to send each PDF file in separate email to the recipient. Rules is one PDF file in one email to same recepient. No message body required, subject could be same for all emails. After sending I'd like to move PDF files to C:\Invoices\Sent

If someone could help me with it would be really nice. I know for vbscript guru it's piece of cake but for me it's a big chalange.

Many thanks in advance.

Brgds
Mariusz
↧
↧

Show a Popup and Redirect

January 23, 2017, 10:32 pm
$
0
0
Good Day

i have this code

Code:
            response.Write "<script>alert('You are now done with the 2013 roll value. You will now be taken to the 2017 roll to enter a valuation');</script>"
   
                        Response.Redirect "/" & Session("PROJECT_ROOT") & "/GUI/Property/valuation/Value_Entry_Double.asp?parMethod=ADD&IsDoubleSupp=yes&parSubmitted=True&RollYearAdding=2017"
The Page redirect without a popup, my assumption is that the Javascript runs after the redirect and by that time the page is disposed
↧

Radio List assistance

January 24, 2017, 4:41 am
$
0
0
Hi All,

this is probably really basic but I am stuck.

basically I have a radio list (call it list a) with values in it, these are dynamic so there could be up to 10 options in it.

what i am trying to do is when an option on list A is selected i.e option 1 is selected it will tie up with a value relevant to the option

i.e if the selection made is the 2nd option on list it will also select the session variable called dynamic2 it will then update one of the stored session variables to have both values added up.

i hope this is clear enough?

thanks,

Arran
↧

Script to test the date stamp of a file and email when date changes

January 26, 2017, 1:29 am
$
0
0
Hi Clever Ones!
I am looking at how to check the date stamp of one file in one directory on a server. When the file changes (new date stamp) I would like to automate a process that would email this file to a dedicated person. No sure if this is possible.

Any help would be appreciated

Regards Joe
↧

RECORDSET,open where multiple clauses

January 30, 2017, 11:51 am
$
0
0
HI

I am having issue with recordset when my where clause has more than 1 field
'objRecordSet.Open "SELECT SalesOrder,SalesOrderLine FROM tbl_SorDetail_OtifAudit WHERE SalesOrder = '" & OrderHeader.CodeObject.SalesOrder &"'"
this works correctly
but I don't know correct way to add where SalesOrderLine = & OrderHeader.CodeObject.OrderLine &
I have tried numerous ways and all return recordcount = 0 when know that is not correct

any help much appreciated
Tina
↧
↧

SendKeys "+" for opening PDF

February 20, 2017, 5:22 am
$
0
0
Hi guys, I have an issue with opening pdf documents. I have an tool, with an button when the button is pressed an vbs script run. In the script i have the following for opening pdf docs:

Case "PDF"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "AcroRd32.exe " & cFileName, 1

But when you click on the button adobe will open and stay in the background. When I press shift and the press the button the pdf document will be openend with adobe.Is there a way to open the pdf document without pressing the Shift key first? I have tried to add the following line but it did not help:
WshShell.SendKeys "+"


Does anyone have a good tip for me?
↧

Folder Collection Question

February 20, 2017, 11:56 am
$
0
0
Is there a way to parse a share or workstation and only collect specific folder names in VB? I had thought i would of been able to do it in robocopy, the same way you include files option, but it does not look like you can target directories.

i had been at it for a few weeks before i figured out you cannot do it in robocopy... if anyone could alteast point me in the right direction i would greatly appreciate it.
↧
Search

Script Error: Source: Microsoft VBScript runtime error - Error: 800A000D

March 3, 2017, 11:59 am
$
0
0
Hello,

New to the forum. I'm trying to set up a script that blocks country by code for my email server. Here is the code:

Code:
Sub OnClientConnect(oClient)

  Const BlackList="AR VN CN AF AL DZ AM AU AT AZ BS BH BD BY BE BA BZ BG KH CA CF TD CL CO CG CD HR CU CZ DK DO EC EG EE ET FR GE DE GH GI GR IN ID IR IQ IE IL IT JP JO KZ KP KE KW KG LA LV LB LR LY MY MV ML MT MX MA PS OM QA RU SA SG SY TW TM AE UZ YE"
     
  Dim IP, Port, locationRaw, locationArray, s, regExp, CountryCode
  Const chr34="\"""
  Const Accept=0
  Const Deny=1

  '--- Get IP:port...     
  IP = oClient.IPAddress
  Port = oClient.Port

  '--- Exclude local IP addressess...     
  if InStr(IP,"127.")<>1 and InStr(IP,"10.")<>1 then

  '--- Prepare regular expression...
      Set regEx = New RegExp
      '--- Search for first `"geobytesinternet":"AA"` occurence...
      regEx.Pattern=chr34 & "geobytesinternet" & chr34 & "\:" & chr34 & "[A-Z]{2}" & chr34
      '--- Match case...
      regEx.IgnoreCase = False 
      '--- First match only...
      regEx.Global = False 
     
  '--- Get GeoIP information...     
      Set locationRaw = CreateObject("MSXML2.XMLHTTP")
      locationRaw.open "GET", "http://getcitydetails.geobytes.com/GetCityDetails?fqcn=" & trim(oClient.IPaddress), False
      locationRaw.send     
       
  '--- Search for CountryCode...
      Set Matches = regEx.Execute(locationRaw.responseText)
      '--- If found then set CountryCode...
      if Matches.Count=1 then CountryCode=mid(Matches(0).value,21,2) else CountryCode="??"
      Call WriteLogfile("onClientConnect: " & IP & ", " & Port & ", " & CountryCode)
     
  '--- Check for blacklisted country and if so, log it and abort session...
      If InStr(Blacklist,CountryCode)<>0 then
        EventLog.Write(now() & "Blacklisted: " & IP & ", " & CountryCode)
        Result.Value=Deny
      end if             
  End If
       
End Sub
I'm getting the error
Quote:
Script Error: Source: Microsoft VBScript runtime error - Error: 800A000D - Description: Type mismatch: 'WriteLogfile' - Line: 35 Column: 6 - Code: (null)
I'm not savvy with vbscript and was wondering if someone may know why I get this error?

Thanks in advance!
↧

How to embed VBSCRIPT inside HTML

March 12, 2017, 7:19 am
$
0
0
I have a working VBScript that launches/open calendar invite with prepopulated recipient. I need to add a dropdown list for users to pick a selection, prepopulated recipient would be filled based on their selection.
When I run the html file it only executes the HTML code but never got into the VBScript code.
Also I am interested to do the dropdown in VBScript without the html. Any guidance or direction greatly appreciated.

Here is what I am trying to do:
Code:

       
Code:

       
<html>
<head>
<HTA:APPLICATION ID="2014-03"
   applicationName="2014-03"
   version="1.1"
    BORDER="thin"
    BORDERSTYLE="static"
    CAPTION="Yes"
    CONTEXTMENU="no"
    ICON="C:\icon\32x32.ico"
    INNERBORDER="no"
    MAXIMIZEBUTTON="no"
    MINIMIZEBUTTON="no"
    NAVIGATABLE="no"
    SCROLL="no"
    SCROLLFLAT="no"
    SELECTION="no"
    SHOWINTASKBAR="yes"
    SINGLEINSTANCE="yes"
    SYSMENU="yes"
    WINDOWSTATE="normal"
>

<SCRIPT LANGUAGE="VBScript">

    Sub WindowsLoad()

    Select Case inp01

    Case "1"
        msgBox "Option 1 Selected!"
'do something here
    End Sub

  
</SCRIPT>
</head>

<body>

<select id=extension size="1" name="OptionChooser" onChange="TestSub">
    <option value="0">Select Option</option>
    <option value="1">One</option>
    <option value="2">Two</option>
    <option value="3">Three</option>
    <option value="4">Four</option>
</select>



<input Type = "Button" Value = "Launch Meeting Invite" Name = "Run_Button" onClick = "WindowsLoad"><p></td>

</body>

</html>
↧
↧

How to create outlook meeting invite with shared calendar?

April 10, 2017, 1:15 pm
$
0
0
I have a vbscript that launches a meeting invite with some emails using the default calendar. Now I need to update the script to launch a meeting invite using shared calendar (SharedCalendar).

Code:
Sub btnClose_OnClick
                Window.Close
        End Sub
       
        Sub CreateICS(ToList)
       
                Dim objOL  'As Outlook.Application
                Dim objAppt 'As Outlook.AppointmentItem
               
                Const olAppointmentItem = 1
                Const olMeeting = 1
               
                Set objOL = CreateObject("Outlook.Application")
                Set objAppt = objOL.CreateItem(olAppointmentItem)
                                       
                With objAppt
                        .Subject = ""
                        .Body = ""
                       
                        .Start = Now
                        .End = DateAdd("h", 1, .Start)
                         
                        ' make it a meeting request
                        .MeetingStatus = olMeeting
                        .RequiredAttendees = ToList
                        .OptionalAttendees = ""
                       
                        '.Send
                        .Display()
                End With
       
                Set objAppt = Nothing
                Set objOL = Nothing

        End Sub
Can someone please provide some guidance or direction on how start a meeting invite using shared calendar?
↧

VB Script Outlook Calendar on how to display a meeting invite using specific calendar

April 11, 2017, 1:40 pm
$
0
0
I have a vbscript that launches a meeting invite with some emails using the default calendar. I need to update the script to display the meeting invite using a specific calendar which resides on the same Parent folder (My Calendar) as the default calendar. Basically there are two Calendars under My Calendar folder. The top calendar seems to be the default calendar.
Here is the structure:
My Calendar



Somehow i need to figure out on how to display meeting invite with the Name@gmail.com calendar.

Code:
Sub btnClose_OnClick
                Window.Close
        End Sub
       
        Sub CreateICS(ToList)
       
                Dim objOL  'As Outlook.Application
                Dim objAppt 'As Outlook.AppointmentItem
               
                Const olAppointmentItem = 1
                Const olMeeting = 1
               
                Set objOL = CreateObject("Outlook.Application")
                Set objAppt = objOL.CreateItem(olAppointmentItem)
                                       
                With objAppt
                        .Subject = ""
                        .Body = ""
                       
                        .Start = Now
                        .End = DateAdd("h", 1, .Start)
                         
                        ' make it a meeting request
                        .MeetingStatus = olMeeting
                        .RequiredAttendees = ToList
                        .OptionalAttendees = ""
                       
                        '.Send
                        .Display()
                End With
       
                Set objAppt = Nothing
                Set objOL = Nothing

        End Sub
Can someone please provide some guidance or direction on how start a meeting invite using specific calendar?
↧

VBS to start batch (cmd) with title

April 15, 2017, 7:05 pm
$
0
0
Hi Folks -

Can anyone help me write a vbs script to start a batch script WITH a title?

Thanks!!!
↧
Viewing all 699 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>