Usage of InternetOpen from Outlook VB Add-in

Status
Not open for further replies.
P

paresh

Hi,

I have written Outlook Add-in which opens an our http link to do some

important work. It is working fine but has some inconsistencies and

performance issue with it. Though my code does cleanup, after few invocations

of that link from my Add-in toolbar button, Outlook gets non-responsive for

few seconds and then it comes back to normal but doesn't open http link.

Please refer my code give below and let me know if I am missing anything. I

really not sure why it has been happening like this. Any assistance would be

appreciated.

Sub GetUserInformation()

On Error GoTo Err_handler:

Dim hOpen As Long

Dim hConn As Long

Dim sUrl As String

Dim userId As Long

userId = 12345

sUrl = "https://getuserinfo.ky.com:14401/userinfo.cgi?q=" & userId

' create an internet connection, open link and do clean up

hOpen = InternetOpen("GetUserInformation", INTERNET_OPEN_TYPE_DIRECT,

vbNullString, vbNullString, 0)

hConn = InternetOpenUrl(hOpen, sUrl, vbNullString, ByVal 0&,

INTERNET_FLAG_RELOAD, ByVal 0&)

InternetCloseHandle hConn

InternetCloseHandle hOpen

Exit Sub

Err_handler:

MsgBox "Error in opening internet URL.", vbOKOnly, "GetUserInfo"

End Sub

Thanks.
 
E

EricLegault

This wouldn't be an issue with Outlook in any way. Your dealing with factors

like web browsers and OS performance/configuration that's beyond Outlook's

control.

Eric Legault - , MCDBA, MCTS (SharePoint programming, etc.)

"paresh" wrote:


> Hi,

> I have written Outlook Add-in which opens an our http link to do some
> important work. It is working fine but has some inconsistencies and
> performance issue with it. Though my code does cleanup, after few invocations
> of that link from my Add-in toolbar button, Outlook gets non-responsive for
> few seconds and then it comes back to normal but doesn't open http link.

> Please refer my code give below and let me know if I am missing anything. I
> really not sure why it has been happening like this. Any assistance would be
> appreciated.

> Sub GetUserInformation()
> On Error GoTo Err_handler:
> Dim hOpen As Long
> Dim hConn As Long
> Dim sUrl As String
> Dim userId As Long
> userId = 12345

> sUrl = "https://getuserinfo.ky.com:14401/userinfo.cgi?q=" & userId

> ' create an internet connection, open link and do clean up
> hOpen = InternetOpen("GetUserInformation", INTERNET_OPEN_TYPE_DIRECT,
> vbNullString, vbNullString, 0)

> hConn = InternetOpenUrl(hOpen, sUrl, vbNullString, ByVal 0&,
> INTERNET_FLAG_RELOAD, ByVal 0&)

> InternetCloseHandle hConn
> InternetCloseHandle hOpen

> Exit Sub
> Err_handler:
> MsgBox "Error in opening internet URL.", vbOKOnly, "GetUserInfo"

> End Sub

> Thanks.
 
Status
Not open for further replies.
< Disable control CTRL button when dragging items/folders - Outlook | Birthday series in calendar >
Similar threads
Thread starter Title Forum Replies Date
F Organizational Forms usage Exchange Server Administration 1
Diane Poremsky Exchange Server Usage, Reporting, and Analysis Tools Using Outlook 0
S Date/Time Field Natural Language Usage in VBA? Outlook VBA and Custom Forms 1
D Questions related to usage of webpage in outlook Using Outlook 1
M Outlook.exe 1.2Gb memory usage if running certain BCM reports BCM (Business Contact Manager) 8
T Usage Policy Notice pop-up Outlook VBA and Custom Forms 2
Retired Geek Outlook for the MAC with Yahoo accounts now very broken Using Outlook 2
S Outlook 2002- "Send" button has disappeared. Help please. Using Outlook 1
L How Stop Outlook Nag Messages Using Outlook 1
TomHuckstep Remove Send/Receive All Folders (IMAP/POP) button from Outlook 365 Ribbon Using Outlook 1
L I Cannot Sign Into My Outlook Account? Outlook VBA and Custom Forms 0
icacream Outlook 2021 - Google calendar in the peek Using Outlook 0
e_a_g_l_e_p_i Question about installing my Gmail account on my iPhone but still getting messages downloaded to my desktop Outlook. Using Outlook 3
F Want to add second email to Outlook for business use Using Outlook 3
kburrows Outlook Email Body Text Disappears/Overlaps, Folders Switch Around when You Hover, Excel Opens Randomly and Runs in the Background - Profile Corrupt? Using Outlook 0
M using excel to sort outlook appointment items Outlook VBA and Custom Forms 4
e_a_g_l_e_p_i MY Outlook 2021 changed the format of the shortcuts for mail, calendar etc. Using Outlook 10
Z Outlook 2021 Outlook new emails notification not working Using Outlook 5
K Changing the Deleted Items location in Outlook 2019 Using Outlook 2
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
V How to use Comas in a picklist in Outlook forms Outlook VBA and Custom Forms 3
e_a_g_l_e_p_i Question about reinstalling Outlook 2021 Using Outlook 5
A Outlook 365 Outlook (part of 365) now working offline - argh Using Outlook 5
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
G LinkedIn tab missing in Outlook 365 (but working in OWA) Using Outlook 0
Jay Freedman Outlook forgets "not junk" marking Using Outlook 0
KurtLass Opening Graphics Attachments in Outlook 2021 Using Outlook 0
P now on office 365 but getting error messages about missing Outlook 2013 cache folders Using Outlook 2
B Outlook config download Outlook VBA and Custom Forms 1
M Short term workaround for when Outlook searching stopped functioning Using Outlook 0
D Outlook 2016 Creating an outlook Macro to select and approve Outlook VBA and Custom Forms 0
L Fetch, edit and forward an email with VBA outlook Outlook VBA and Custom Forms 2
BartH VBA no longer working in Outlook Outlook VBA and Custom Forms 1
L Synch Outlook 365 calendar with iPhone Using Outlook 0
W Can vba(for outlook) do these 2 things or not? Outlook VBA and Custom Forms 2
S Outlook 2016 and Acrobat PDFMaker Office COM Addin Using Outlook 0
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
M Outlook 365 Rename Outlook Priority Using Outlook 3
R Outlook 2019 accesses POP3 but says its offline (because of IMAP servers?) Using Outlook 0
R Outlook Working off line Using Outlook 0
D Outlook 365 Custom forms field limit? Outlook VBA and Custom Forms 4
W Outlook 2016 MSI - Possible to make work with O365 modern Auth & Win7? Using Outlook 4
T Outlook roaming signatures Using Outlook 4
S Adding a recipient's column to Sent folder in Outlook 2010 Outlook VBA and Custom Forms 1
J Outlook search bar in Office 2021 Professional Using Outlook 1
J PSA: How to create custom keyboard shortcut for "Paste Unformatted Text" in Outlook on Windows Outlook VBA and Custom Forms 1
C How to fix outlook continuing to prompt fo an Exchange password Using Outlook 0
C Outlook doesn't feel reliable, anymore Using Outlook 5
J Outlook 2016 Trying to get Outlook 2016 to work with Office 365 Using Outlook 0
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0

Similar threads

Top