REading emails from exchange 2000

Visual Basic Language

‹ Visual Basic
- Archive
  - Visual C#
  - Visual Studio
  - VB
  - Office
  - VC++
  - VFP
  - Game
  - IE
  - Smart Device
  - Windows Vista
  - SQL Server
  - Architecture
  - SharePoint
  - Dotnet
  - Windows Forms
  - VS 2008
  - Windows Live
  - VS Express
  - ISV

- Previous
  - 1
    - VB Active X DLL fail on 64 bit while we use through VB script OK, using 32 bit DLL's on a 64 bit OS is going to cause you issues because they are a different bitness. So you cannot simply call a 32 bit COM component from a 64 bit application. You have 2 options, get 64 bit DLL's to use for your 64 bit application or compile x86 applications on the 64 bit machine. The 2nd is probably the more likely if you are using 3rd party DLL's etc. and this should be easily achieved by using the My Project -> Compile tab -> Advanced Settings -> Target CPU and setting it the x86 This then causes the compiler to generate an x86 binaries which are the same bitness as the referenced DLL's. It works through VB Script, VBA, VB6 and even .net framework 1.1 applications as all they know about is 32 bitness. However installing 2.0 an upwards of .NET framework on a 64 bit machines results in 32 and 64 bit frameworks being installed. Tag: REading emails from exchange 2000
  - 2
    - Setting Today's Date by Default in a Function Thanks for replying, TaDa. Unfortunately, I don't think you understand fully what I am attempting to do. I need to do two things in the one function: If I pass a date to the function, return it's date code. If I pass Nothing to the function, return Today's date code. I can see from your code how I can do either in two separate functions, but I want to do both. Any further suggestions Thank you again! Tag: REading emails from exchange 2000
  - 3
    - DateTimePicker and language Gpg, To avoid this behavior, trap the data before it is displayed in the control, and then change the data so that it is valid. For example, the following code traps the DBNull value and changes the value to a date value of January 1, 1800. This code uses event handlers with the DateTimePicker control to monitor when the value changes. If the value is null, the value is changed to January 1, 1800. Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim MyDataSet As New DataSet() Dim MyTable As New Data.DataTable( "dsTable" ) Dim MyColumn As New DataColumn( "HireDate" ) MyDataSet.Tables.Add(MyTable) MyColumn.AllowDBNull = True MyColumn.DataType = GetType (System.DateTime) MyTable.Columns.Add(MyColumn) Dim MyData(0) As Object MyTable.Rows.Add(MyData) Dim MyBinding As New Binding( "Value" , MyDataSet.Tables( "dsTable" ), "HireDate" ) AddHandler MyBinding.Format, AddressOf DTFormatter AddHandler MyBinding.Parse, AddressOf DTParser DateTimePicker1.DataBindings.Add(MyBinding) End Sub Private Sub DTFormatter( ByVal sender As Object , ByVal e As ConvertEventArgs) Dim b As Binding = CType (sender, Binding) If Not e.DesiredType Is GetType (DateTime) Then Return End If If e.value.GetType Is GetType (System.DBNull) Then e.value = CType ( "1/1/1800" , System.DateTime) End If End Sub Private Sub DTParser( ByVal sender As Object , ByVal e As ConvertEventArgs) If Not e.DesiredType Is GetType (DateTime) Then Return End If If Not e.value.GetType Is GetType (DateTime) Then Return End If Dim value As String = CType (e.Value, String ) If value.Equals( "1/1/1800" ) Then e.value = System.DBNull.value End If End Sub Tag: REading emails from exchange 2000
  - 4
    - Get Default Printer Richard, Many thanks for your reply, and that works perfectly! I thought this should be straight forward, but all my searches didnt find anything. Thank you again Chris Tag: REading emails from exchange 2000
  - 5
    - baby lock WindowsXP already has this program built in. Go to the User Settings and create a profile for each user to login under. Then you can disable/enable whatever you want in there. Similar to what most companies do to prevent us horrible employees from surfing the web all day. Tag: REading emails from exchange 2000
  - 6
    - TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET Hi all, Could any one please tell what is the equivanet function of the TwipsToPixelsY, TwipsToPixelsX functions in VB.NET. These are supported by vb6 namespace if we use in .NET but i should not use VB6 in my project So please guide me what are the equivalents to these functions Regards, Tag: REading emails from exchange 2000
  - 7
    - InnerCastExeption error. Hi! I wrote this code: Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If txtUserName.Text = "Test" & txtPassword.Text = "Test" Then Me.Close() Else Form2.Show() MsgBox("Wrong username or password." & vbCrLf & "Protection Continued") End If End Sub And when i try to run it (debug) i get InnerCastExeption error. How can i fix this //Greetings, Zeelia Tag: REading emails from exchange 2000
  - 8
    - How can I check the Internet connection speed via code? Thank you Nofal Tag: REading emails from exchange 2000
  - 9
    - bitmap to Picturebox throught network I have a System.Drawing.Bitmap and I want to display it to another program's picturebox throught a network (localy or internet). How can I do it Tag: REading emails from exchange 2000
  - 10
    - An attempt was made to access a socket in a way forbidden by its access permissions Hi Mike, I have XP Professional operating system. Thanks, Dick Roose Tag: REading emails from exchange 2000
  - 11
    - Sound You can also use.... My .Computer.Audio.Play(someFile) Tag: REading emails from exchange 2000
  - 12
    - encrypting passwords in a database Hello, I am creating an application using vb windows applcation and using SQL 2005. I have a table of users, that contain there usernames and passwords. When a new user is added it stores all the passwords in clear text in the database. What is the best method to use to be able to crypt the passwords in the database. Also, when the user login, i have a sql statement that will compare the username and password that they enter in the login dialog box, to what is in the database. If the password is encryted, would I still be able to compare their password to see if they can still login. i.e. "Select * From Users Where LoginID=@LoginID And Password=@Password" Many thanks for any suggestions, Steve Tag: REading emails from exchange 2000
  - 13
    - Print Preview Error thank you for your help, james. I have found a print component which more or less does the job (here is the URL, http://msdn2.microsoft.com/en-us/vbasic/aa701261.aspx ), but, i have discovered another problem. lets say that i want to print an A4 sized document using forms, using a print component. Everything works so far up to even having a print preview, unfortunately i am unable to set it to A4 size. Some help would be greatly appreciated. Thanks Tag: REading emails from exchange 2000
  - 14
    - Textbox Focus From Form Load Many thanks for your prompt response. I have tried the alternatives you suggest without success. It’s important for user friendliness to have an input textbox focused when the forms loaded. It would be surprising to say the least if MS development engineers have omitted this. In vb6 setfocus worked fine. Help Please. Tag: REading emails from exchange 2000
  - 15
    - What Language represents &H100& &H is a prefix put on a number to indicate it is a hex number. From MSDN The compiler normally construes an integer literal to be in the decimal (base 10) number system. You can force an integer literal to be hexadecimal (base 16) with the &H prefix, and you can force it to be octal (base 8) with the &O prefix. The digits following the prefix must be appropriate for the number system. The following table illustrates this. Number Base Prefix Valid Digit Values Example Hexadecimal (Base 16) &H 0-9 and A-F &HFFFF Octal (Base 8) &O 0-7 &077 Tag: REading emails from exchange 2000
  - 16
    - newbie call errors Tip No.2 If you go to the project menu and add a MODULE with PUBLIC variables, you can then use them within every SUB or FUNCTION and within every FORM. >>>> Code Snippet Module Module1 Public myPublicInteger As Integer Public myPublicString As String 'etcetra.>>>> End Module Code Snippet Public Class Form1 'Sets the "myPublicString" to "Hello there!!" Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load myPublicString = "Hello there!!" End Sub 'Shows the same "myPublicString" in a message. Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show(myPublicString) End Sub End Class Use the above idea with caution. Insert the word PUBLIC if you like in the variable names if you want to keep track of their values easier as it easy for a SUB or a FUNCTION to change a value, especially if you have forgotten a particular SUB or FUNCTION changes it. Regards, S_DS Tag: REading emails from exchange 2000
- Next
  - 1
    - Create Users to Windows 2003 Programatically (vb) Hi all, I'm trying to add users remotely to a Windows 2003 Standard using the command net.exe, but I just can't make it work. This is my code: Dim p As New Process p.StartInfo.UseShellExecute = False p.StartInfo.RedirectStandardError = True p.StartInfo.RedirectStandardInput = True p.StartInfo.RedirectStandardOutput = True p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo.Arguments = " user " & xUser & " " & xPass & " /ADD /ACTIVE:YES /EXPIRES:NEVER" p.StartInfo.WorkingDirectory = "C:\windows\system32" p.StartInfo.FileName = "net" p.Start() Dim sr As IO.StreamReader = p.StandardOutput Dim sb As New System.Text.StringBuilder( "" ) Dim sinput As String = "" Do Until sinput = "-1" sb.Append(sr.ReadLine() & ControlChars.CrLf) sinput = sr.Read Loop p.WaitForExit() p.Close() Return sb.ToString it doesn't return anything, and user is not created. If I change the following line, it returns perfectly the table of users: p.StartInfo.Arguments = " users" so what could the problem be Thanks in advance. George Tag: REading emails from exchange 2000
  - 2
    - how do i populate a checklistbox from a database in MSSQL server? Ok, Here is the code: Form: Option Strict On Option Explicit On Public Class frmPatient ' Declaring module level variables Private oldTime As Integer = 0 Private newTime As Integer = 0 Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeString & " " & DateString End Sub Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me .Close() End Sub Private Sub frmPatient_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load 'TODO: This line of code loads data into the 'Ntier_SCOADataSet.Resources' table. You can move, or remove it, as needed. Me .ResourcesTableAdapter.Fill( Me .Ntier_SCOADataSet.Resources) ' This sub handles the initial reading of text file. Dim Patient_Info As New List( Of String ) Dim record As String Patient_Info = Module1.ReadTextFile() ' Determine if record should be appended based on timestamp Integer .TryParse(Patient_Info(0), newTime) If newTime > oldTime Or oldTime = 0 Then ' Concatenate strings record = Module1.ConcatenateStrings(Patient_Info) ' Add record to appropriate list Module1.AppendRecord(record, Patient_Info(3)) ' set oldTime to newTime oldTime = newTime End If End Sub Private Sub UpdateQues( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick, xRefreshButton.Click ' This sub handles the refreshing of data when either the timer expires ' or the xRefreshButton is clicked. ' Note: timer expires in 60000 milliseconds or 1 minute. Dim Patient_Info As New List( Of String ) Dim record As String Patient_Info = Module1.ReadTextFile() ' Determine if record should be appended based on timestamp Integer .TryParse(Patient_Info(0), newTime) If newTime > oldTime Then ' Concatenate strings record = Module1.ConcatenateStrings(Patient_Info) ' Add record to appropriate list Module1.AppendRecord(record, Patient_Info(3)) ' set oldTime to newTime oldTime = newTime End If Module1.ShowRecords() End Sub Private Sub xResourceListBox_Click( ByVal sender As Object , ByVal e As System.EventArgs) ' This sub shows the correct lists when a resource is selected. Module1.ShowRecords() End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xPlacedButton.Click ' This sub is called when the xPlacedButton is clicked ' Note: follow the calls to the appropriate subs or functions. Dim index As Integer index = Me .xRecordsListBox.SelectedIndex Module1.MoveToPlaced(index) End Sub End Class module1: Option Strict On Option Explicit On Module Module1 ' Declaring module level lists ' Each resource will need two lists. Patient que & Placed List Private AWS As New List( Of String ) Private AWS2 As New List( Of String ) Private XYG As New List( Of String ) Private XYG2 As New List( Of String ) Private JBY As New List( Of String ) Private JBY2 As New List( Of String ) Public Function ReadTextFile() As List( Of String ) ' This function reads the text file and parses it appropriately. ' Returns a list to calling function or sub Dim NewInfo As New List( Of String ) Dim read_line() As String ' path will be different depending on location of text file Const path As String = "C:\hl7test" Dim temp_MSH_pipes() As String Dim temp_SCH_pipes() As String Dim temp_NTE_pipes() As String Dim temp_PID_pipes() As String Dim temp_AIG_pipes() As String Dim temp_REASON_carrots() As String Dim temp_APPTTIME_carrots() As String Dim temp_STATUS_carrots() As String Dim temp_PATIENT_carrots() As String Dim temp_RESOURCE_carrots() As String Dim patient_Lname As String Dim patient_Fname As String 'NewInfo(0) = file_time 'NewInfo(1) = appt time 'NewInfo(2) = patient full name 'NewInfo(3) = resource 'NewInfo(4) = reason 'NewInfo(5) = status 'NewInfo(6) = current time 'NewInfo(7) = comment ' assign each line of text file to element of array read_line = My .Computer.FileSystem.ReadAllText(path & "\testnl7.txt" ).Split(Chr(13)) ' splitting first line by pipes temp_MSH_pipes = read_line(0).Split(Chr(124)) ' don't need to do anything else except strip out the timestamp ' note: could not use entire number, so I eliminated the year. ' this string is for application purposes and will not be shown on form. NewInfo.Add(temp_MSH_pipes(5).Substring(5)) ' splitting second line by pipes into elements of an array temp_SCH_pipes = read_line(1).Split(Chr(124)) ' splitting preceding array by carrots(^) into elements of another array temp_APPTTIME_carrots = temp_SCH_pipes(11).Split(Chr(94)) ' strip out the appointment time from correct element of new array NewInfo.Add(temp_APPTTIME_carrots(3).Substring(8, 4)) ' repeating preceding steps to acquire rest of data temp_PID_pipes = read_line(3).Split(Chr(124)) temp_PATIENT_carrots = temp_PID_pipes(5).Split(Chr(94)) patient_Lname = temp_PATIENT_carrots(0) patient_Fname = temp_PATIENT_carrots(1) ' concatenating to names NewInfo.Add(patient_Lname & ", " & patient_Fname) temp_AIG_pipes = read_line(6).Split(Chr(124)) temp_RESOURCE_carrots = temp_AIG_pipes(3).Split(Chr(94)) NewInfo.Add(temp_RESOURCE_carrots(0)) temp_REASON_carrots = temp_SCH_pipes(6).Split(Chr(94)) NewInfo.Add(temp_REASON_carrots(1)) temp_STATUS_carrots = temp_SCH_pipes(25).Split(Chr(94)) NewInfo.Add(temp_STATUS_carrots(0)) ' including timestring into list NewInfo.Add(TimeString) temp_NTE_pipes = read_line(2).Split(Chr(124)) NewInfo.Add(temp_NTE_pipes(3)) Return NewInfo End Function Public Function GetList( ByVal index As Integer ) As List( Of String ) ' This function determines which patient list to examine by examining the ' passed index. Returns the correct list to calling function or sub. ' Note: this will have to be expanded to include every resource. Dim CorrectList As New List( Of String ) If index = 0 Then CorrectList = XYG ElseIf index = 9 Then CorrectList = AWS ElseIf index = 22 Then CorrectList = JBY End If Return CorrectList End Function Public Function GetList2( ByVal index As Integer ) As List( Of String ) ' This function determines which placed list to examine by examining the ' passed index. Returns the correct list to calling function or sub. ' Note: this will have to be expanded to include every resource. Dim CorrectList As New List( Of String ) If index = 0 Then CorrectList = XYG2 ElseIf index = 9 Then CorrectList = AWS2 ElseIf index = 22 Then CorrectList = JBY2 End If Return CorrectList End Function Public Function ConcatenateStrings( ByVal Patient_List As List( Of String )) As String ' This function takes a list and concatenates it with appropriate spacing for ' Patient list. Returns a record as string. Dim record As String record = Patient_List(1).PadRight(12, Chr(32)) & Patient_List(2).PadRight(26, Chr(32)) & Patient_List(3).PadRight(11, Chr(32)) & Patient_List(4).PadRight(11, Chr(32)) & Patient_List(5).PadRight(10, Chr(32)) & Patient_List(6).PadRight(10, Chr(32)) & Patient_List(7) Return record End Function Public Sub AppendRecord( ByVal record As String , ByVal resource As String ) ' This sub appends records in the patient que by determining what the resource is. ' These values are passed by the calling function or sub. If resource Like "XYG" Then XYG.Add(record) ElseIf resource Like "AWS" Then AWS.Add(record) ElseIf resource Like "JBY" Then JBY.Add(record) End If End Sub Public Sub AppendRecord2( ByVal index As Integer , ByVal record As String ) ' This sub appends records in the Placed list by determining what the resource is. ' These values are passed by the calling function or sub. If index = 0 Then XYG2.Add(record) ElseIf index = 9 Then AWS2.Add(record) ElseIf index = 22 Then JBY2.Add(record) End If End Sub Public Sub ShowRecords() ' This sub shows the records for the appropriate resource Dim show_who As Integer Dim i As Integer Dim my_list As New List( Of String ) ' determine who is selected show_who = frmPatient.xCheckedListBox1.SelectedIndex() ' get the correct list my_list = GetList(show_who) ' clear out the Top list box frmPatient.xCheckedListBox1.ClearSelected() For i = 0 To my_list.Count - 1 ' add the records from the list to the listbox frmPatient.xCheckedListBox1.Items.Add(my_list(i)) Next ' get the correct list my_list = GetList2(show_who) ' clear out the bottom list box frmPatient.xCheckedListBox1.Items.Clear() For i = 0 To my_list.Count - 1 ' add the records from the list to the listbox frmPatient.xPlacedListBox.Items.Add(my_list(i)) Next End Sub Public Sub MoveToPlaced( ByVal index As Integer ) ' This sub moves records from the top list box to the bottom ' list box when the Placedbutton is clicked. It does this by ' determining who is selected and which record in the top list ' box is selected. With this information, it can get the correct ' list and add the record to the bottom list box and to the ' appropriate list that holds Placed records for the resource. ' An index value of the selected record to move is passed from ' calling function or sub. Dim change_who As Integer Dim top_list As New List( Of String ) Dim bottom_list As New List( Of String ) Dim Update As String ' determine which resource is selected change_who = frmPatient.xCheckedListBox1.SelectedIndex ' get the correct list for the top listbox top_list = GetList(change_who) ' get the correct list for the bottom listbox bottom_list = GetList2(change_who) ' get the correct record from the top listbox Update = top_list(index) ' remove the record from the top list top_list.RemoveAt(index) ' add the record to the correct list that holds Placed records. AppendRecord2(change_who, TimeString.PadRight(13) & Update) ' now just show the correct records for the lists. ShowRecords() End Sub End Module Tag: REading emails from exchange 2000
  - 3
    - Interface - Collection of Interfaces? I already know how to "use" an Interface. But unsure how to "form" an interface containing a collection of Interfaces! Tag: REading emails from exchange 2000
  - 4
    - best practice when writing to sql server One other thing, you may get timeout issues if you dont open and close the connection each time! Tag: REading emails from exchange 2000
  - 5
    - Read Data from Card Reader Hi Derek, Yes is a USB type Card Reader (Gemplus GemPC430) BUT the device didnot appear as a hard drive in MyComputer! So any solution for that ! What is the command (VB.Net Coding) to instruct the Card Reader to read the data ! Or it will read the card contents automatically ! Thanks in advance! Henry Han Tag: REading emails from exchange 2000
  - 6
    - IP Address textbox Here is a vb.net example: http://www.freevbcode.com/ShowCode.asp ID=4859 Tag: REading emails from exchange 2000
  - 7
    - Controls Transparency Hi, You may need to force you rotating item "ON TOP" through calling one of the windows DLL functions as per an API call. Alternatively try putting it on the media player window area that it not showing the video content. Regards, S_DS Tag: REading emails from exchange 2000
  - 8
    - metadata help Hi, Over the weekend there i found a set of classes that let me change the Id3v2 tags of mp3s. The same library had a set of classes for working with mpegs. Although I'm not sure if it's what you need have a look, the library was called TagLib#. If you look at my homepage Url below and select blog from the menu along the top you'll see the entry. If you don't want to do then just search online, I think its what your looking for. Tag: REading emails from exchange 2000
  - 9
    - How do you add a pause with the Timer control? How about using two timers? Hiya, Try this and watch the time when it gets to zero seconds. This shows the Date and Time from NOW in the Form title bar. It stops for 10 seconds and then restarts showing the Now time again. It uses the Timer2 tick event to start and stop the timer Timer1 . Regards, S_DS ____________________________________________ This project only uses two timers. Public Class Form1 ' Set the interval to 1000 milliseconds = 1 second ' within each Timer control. ' ENABLE the timers. Private Sub Form1_Load( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase .Load Timer1.Interval = 1000 Timer1.Enabled = True Timer2.Interval = 1000 Timer2.Enabled = True End Sub Private Sub Timer1_Tick( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick ' Show the date and time in the FORM title bar!! Me .Text = Now.ToLongDateString & " " & Now.ToLongTimeString End Sub Private Sub Timer2_Tick( ByVal sender As Object , _ ByVal e As System.EventArgs) Handles Timer2.Tick ' Here is a pause for 10 seconds. If Now.Second = 0 Then Timer1.Stop() If Now.Second = 10 Then Timer1.Start() End Sub End Class Tag: REading emails from exchange 2000
  - 10
    - Answer command prompt programmatically Some programs, not all, will accept redirection (from a batch file.) In other words, say program zzz.com stops at some point and wants a 'Y' or 'N' for an answer and also an enter. If you create a text file (Use notepad or similar,) that is simply the letter 'Y' and a CRLF and name it C:\Y.FIL. Then in your batch file, you would say: zzz < C:\y.fil on one line. Tip: To make quick short files from the command prompt use a 'copy from console' command. COPY CON C:\Y.FIL (Then hit enter) (Type the complete file and then hit Ctrl-Z) Tag: REading emails from exchange 2000
  - 11
    - creating file name with date I'm using excel 2003 with VB 6.3 I am writing a macro to move some data around and do some subtotalling; I would the macro to save the file as nameispecify with the current date lpantos02012007.xls without me specifiying the date is there a way to do this Thanks! Tag: REading emails from exchange 2000
  - 12
    - Find all PCs in a network hi , thank's a lot i was trying to do it and can u tell me how to do it your narasiman.j Tag: REading emails from exchange 2000
  - 13
    - How to get domain 2. This VB function returns the DNS domain name (westcoast.mycorp.com) from the passed LDAP distinguishedName (CN=Administrator,DN=Users,DC=westcoast,DC=mycorp,DC=com). The function is from this article . Function DN2DomainName( ByVal strDN As String ) On Error Resume Next Dim strDomainName As String Dim strDNParts() As String Dim intI As Integer strDomainName = "" strDNParts = Split(strDN, "," ) ReDim Preserve strDNParts(UBound(strDNParts)) ' Work backwords through DN to assemble domain name For intI = UBound(strDNParts) To 0 Step -1 If (InStr(UCase(strDNParts(intI)), "DC=" )) Then strDomainName = "." & Replace(strDNParts(intI), "DC=" , "" ) & strDomainName Else Exit For ' Short circuit when we run out of "DC=" parts End If Next ' Chop off leading '.' strDomainName = Right$(strDomainName, Len(strDomainName) - 1) DN2DomainName = strDomainName End Function Hope that can provide you some idea. Tag: REading emails from exchange 2000
  - 14
    - PowerPoint event updating form Hi, I have a class that holds a reference to PowerPoint and captures the WindowChangeEvent. When that event happens that class in turn raises my own custom event to a form. The form has a reference to the class but not a direct reference to PowerPoint. When the form receives the custom event all it needs to do is clear a listbox. I know that the PowerPoint WindowSelectionChange event is being captured and in turn is raising the custom event, however the listbox.items.clear method causes strange behaviour - the listbox isn't cleared, the application doesn't crash, it just doesn't execute that command and exits the sub...so nothing happens. Is my approach causing the problem whereby a class capturing the PowerPoint event in turn raises an event on a form Thanks Tag: REading emails from exchange 2000
  - 15
    - upgraded os, now can not find .dll The original .dll file was written and worked with windows 95. It then had to be rewritten when they started putting the program onto Windows 98. If the .dll had to be reconfigured already to work with windows 98, then why can it not be reconfigured to work in the 2000 or xp environment Tag: REading emails from exchange 2000
  - 16
    - DataSet Thanks. "well the instance of the dataset or should i say, the reference, will still be in memory until disposed of" that is true if I define my dataset in General declarations, but I define it in a procedure with Dim I don't have to dispose it, I guess.. Am I rigth Tag: REading emails from exchange 2000

ringus

Hi,

I have looked everywhere but no luck. I really need to be able to read messages and save attachments from an inbox. I have only managed to open up my own inbox which is no use.

Dim oApp As Outlook.Application = New Outlook.Application()

Dim oMsg As Outlook.MailItem

Dim oAtt As Outlook.Attachment

Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")

Dim i As Integer

Dim x As Integer

Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

Dim oItems As Outlook.Items = oInbox.Items

Dim count As Integer = oItems.Count

Dim deletefile, savefile As Boolean

oNS.Logon("DevTest", "password", False, True)

I was hoping the ons.logon whould log me on to the "devTest" inbox but i guess the

Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

is opening up my own default inbox how can I open up the dev test inbox

many thanks

Top

Re: REading emails from exchange 2000

Riquel Dong – MSFT

Hi,

Based on your post, you want to read emails from exchanger server 2000. Here is one good example. It Uses MAPI to login, list emails and select emails and display them. You can find a code snippet which outlines a little mechanism to read email using Outlook while at the same time. It avoids the security patch using Outlook Redemption component. For more information about this code example, visit here.

Hope this helps.

This response contains a reference to a third party World Wide Web site. Microsoft is providing this information as a convenience to you. Microsoft does not control these sites and has not tested any software or information found on these sites; therefore, Microsoft cannot make any representations regarding the quality, safety, or suitability of any software or information found there. There are inherent dangers in the use of any software found on the Internet, and Microsoft cautions you to make sure that you completely understand the risk before retrieving any software from the Internet.

Top