Visual Basic :: Increment And IP Address

EMAIL ADDRESS FORMAT For Exchange Global Address Book Adresses
Hi
I want to display all the entries of MS Exchange Global Address List (GAL) in the following format

Name Email Address
=======================
John Mcenzie john@xyz.com
Ron Stewart ron@xyz.com

This requirement looks quite simple and the problem that I am facing is not in retrieving values from GAL but is in the ADRESS FORMAT in which I'm getting the "Email Address" from AddressEntry Object.

I'm using 'Address' method of the AddressEntry object and returns me the adddress in following format.

/o=XYZ Corporation/ou=ae/cn=Recipients/cn=john Mcenzie

and the Address Type for the above address is 'EX' which I guess is the abbrev. for 'Exchange' format.

Can anyone please tell me how can I display it in a SMTP format (john@xyz.com)?

Source Code
----------------
Private Sub cmdDisplay_Click()
Dim objmapiSession As MAPI.Session
Dim objmapiAddressList As AddressList
Dim objmapiAddressEntries As AddressEntries
Dim objmapiAddressEntry As AddressEntry
' Create a new MAPI Session
Set objmapiSession = New MAPI.Session

'Logon to the MS Exchange server
objmapiSession.Logon

'Get the Global Address List
Set objmapiAddressList = objmapiSession.GetAddressList(CdoAddressListGAL)

'Get the Addresses Collection
Set objmapiAddressEntries = objmapiAddressList.AddressEntries

' Loop through each address object
For Each objmapiAddressEntry In objmapiAddressEntries
Debug.Print objmapiAddressEntry.Name + vbTab + "(" + objmapiAddressEntry.Address + ")"
Next
'Log off
objmapiSession.Logoff

Set objmapiSession = Nothing
Set objmapiAddressList = Nothing
End Sub

Debugger Problem - Going From Relative Virtual Address To True Address = Overflow?
Right - I have my debugger aboiut 30% written now, but I have a problem when going from the relative virtual address (RVA) to the true memory address because this is sometimes greater than MAXLONG?

To see this, put a breakpoint in the function DebugMain.LastSystemError in the attached proggie...

*Resolved* Use MAPI To Retrieve SMTP Address From Outlook Address Book
I want to load a user table with the names and e-mail addresses from our Outlook address book so that remote users who are not connected to our intranet can use the addresses.

I am using MAPI to retrieve information from the outlook address book using the MS Exchange settings. When I try to retrieve the objAddressEntry.Address, I do not get the SMTP address which is what I want to retrieve. The address that is retrieved using the objaddressentry looks like this "/o=value/ou=COMPANY/cn=Recipients/cn=entry name".

We exported the address book to a .csv file and imported it into excel. This spreadsheet had two columns of data related to the e-mail address... the first is named "E-mail Address"... the second is named "E-mail Addresses". The first column only contains information for entries that have addresses outside the company. these are the actual e-mail addresses that we want to load into our table and are equal to the value of the SMTP address in the second column

The second column consists of multiple e-mail addresses (SMTP,MS,X400, and CCMAIL):

example1 - entry with address inside company:
SMTP:MBaker@companyname.com%MSOMAIN/COMPANY/MBAKER%X400:c=US;a= ;p=DOMAIN;o=COMPANY;s=Baker;g=Marilyn;%CCMAIL:Baker, Marilyn at COMPANY

example2 - entry with address outside company:
SMTP:name@provider.com.br%X400:c=US;a= ;p=DOMAIN;o=COMPANY;s=Barbosa;g=Anderson;%CCMAIL:Barbosa, Anderson at COMPANY%MSOMAIN/COMPANY/ABARBOSA

What we need to store in our user table is the SMTP value in this second field... but that is not what is retrieved in the .address property of the addressentry object.

Is there a way to retrieve this info using VB?

Thanks

Edited by - Tenslvr3 on 7/28/2005 8:04:09 AM

Recipients Address,Sender Address Or Email Heades
Hi

I am in a process of migrating all mails from Outlook to a database to create a knowledge base.I am not able to extract the email address of the people in the sender and receipients list.
or i need the email headers to extract the information .

Is it possible to extract this information from a mail like we extract the body or subject

Can you help me

Thanx in advance

How To Extract SMTP Email Address From Address Entry
hi all,
i have a little problem ...i m using cdo to send
emails through vb code. i m selecting mail address from address book.
but my application require to extract exact mail id from address entry
selected from address book. like if i select "Ratan Singh" then i want the
SMTP mail address which this hadder contain. i don't know how to get this.
plz help me out if anyone knows.

regards..
(ratan)

Retrieving Email Address From Global Address Book
I use CDO to open the outlook addressbook.
After the user selects an address entrie, I want to get the name, and the email address of the selected entry.
The name is no problem, but the address property of the addressentrie shows the exchange server address, while I want to get the SMTP address (someone@somewhere.com)

Does somebody know how to get this?
If it is possible to display the addressbook dialog with a different method than using CDO then thats fine too.

Do Email Address Lookup From Outlook Address Book.
Hi everyone,
I am using VB 6. Can I do a lookup and select an email address from Outlook address book using VB?

Below are my codes:

Code:

SENDEMAIL:
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)

OutlookMail.To = "giftxtian@yahoo.com" <-- hard-coded address.
OutlookMail.Subject = "Project Status"
OutlookMail.Body = "This is VB email test"

If Len(MailAttach) = 0 Then
OutlookMail.Attachments.Add MailAttach '"C:ProjectStatus.xls"
End If

OutlookMail.Display 'To display the email
OutlookMail.Send 'To send the email

Thanks.

GiftX

How To Find My Routable IP Address (dynamic) Instead Of The Local Address ?
Hi everybody,
There's a lot of questions on this forum about getting the IP address of a computer. I'm on a local network with a 10.0.0.x address which is my local address on this network but an invalid internet IP address (from the outside of the network). I tried to use the winsock.localIp property (even while connected) and it still gives me the local address. Does anybody know how to find the real IP address of my computer (I also tried winipcfg.exe) ?

Thanks in advance,

Marco47

Txt Increment
Hi,

Does anybody have any ideas on how I could achieve the following

I would like to Increment Letters. E.g

If I type A to D

Then it would return A, B, C, D,

Thanks in Advance

Pawel Humanski

How To Increment This And Use Ado?
Hi guys I need to display these data in array buttom like this

1 to 6 Display data 1 to 6
7 to 12 the same for this..
13 to 15 the same for this...

Code:

declare @startRow int;
declare @pageSize int;
set @startRow = 1;
set @pageSize = 6;

select FirstName, LastName
from (
select row_number() over(order by LastName) as [RowNumber],
FirstName, LastName
from Person.Contact
where LastName like 'D%') as Derived
where RowNumber between @startRow
and @startRow + @pageSize - 1;

Elvis Cabral

Increment
Hi!

The form name is binaryform7 in the attachment.I want that:

1)The value of parameter count shud be incremented to 1 when clicked on NEXT PARAMETER

When i typed the following code in the button of NEXT PARAMETER click event,it gave me a surprising output...i am definately wrong but pls correct me

VB Code:
For i = 1 To Combo1.ListCountText3.Text = i + 1Next i

2)There are 2 combo boxes.1 is CALCULATION MODEL and the other is SELECTED PARAMETERS

We can select multiple values from the CALCULATION MODEL and those selected only will appear in the other combo box.

3)The no. of values into the CALCULATION MODEL,till that number of times only will the parameter count increment.

For example,If the number of values in Calculation model is 15,the parameter count will maximum be incremented till 15 not more than that.

Pls help!

Thnx!

Increment Value
I have a table with TransactionID field (Number Data type) I dont like to use AutoNumber.
I also have a textbox and a button in my form. During run time I will check whether the transactionID field has a value by clicking New button. If there's no value (which of course at first table is empty) I assigned a value to it which will then be displayed in the textbox and the same value will be INSERTED/save when i click a save button.

The problem is when i click the New button 1 is added to the existing record. the third time and so on i click the New button. The value is now not incrementing, it is stuck to 2.
My code:

VB Code:
Dim rsCashSales As New ADODB.Recordset sSQL = "SELECT TransactionID FROM tblCashSales" If rsCashSales.State = adStateOpen Then rsCashSales.Close rsCashSales.Open sSQL, oConn, adOpenStatic, adLockOptimistic If rsCashSales.EOF = True Then txtTransactionID.Text = 1 Else txtTransactionID.Text = CLng(rsCashSales.Fields("TransactionID")) + 1 End If sSQL = "INSERT INTO tblCashSales (TransactionID,Cashpayment) VALUES " & _ "('" & txtTransactionID.Text & " ','" & CCur(txtAmountDue.Text) & "')" oConn.Execute sSQL

What's wrong with my code?

Increment One Day
Quick question:
I have
VB Code:
txt_Date.Text = Date.Now.Today()
and want to increment/decrement 1 day based on whatever today's date happens to be. How would I go about doing that?

Thanks-
m

Txt Increment
Hi
I would like to know how would I be able to perform a txt Increment.

Eg if the User types A to D

The program would display A, B, C, D

Or AA to BB

Would display AA, AB, BB

Thanks in Advance

Humanski

Increment
This is gonna stupid but is there and Increment function in VB? that will inc any integer var by another integer or just 1.

thanx

How To Increment This
Hi

here is the formula I use:

For Each cl In Worksheets("SHEET2").UsedRange
Worksheets("SHEET3").Cells(cl.Value, cl.Column) = "1"
Next cl

this is what it does:
sheet 2
A1) 5
A2) 3
A3) 7

it converts the data to this
sheet 3
A3) 1
A5) 1
A7) 1

the problem is if I have :
sheet 2
A1) 2
A2) 2
A3) 3

converts the data to this:
sheet 3
A2) 1
A3) 1

I need it do this:
A2) 2
A3) 1

any ideas ? (the sheets are excel worksheets if it matters)

thanks

lrneilson

How Would You Do Something Like This? (Increment)
Hey everyone.

I think I may be getting in over my head, but hopefully I wont have the stare when all is done.

In the screenshot you can see the general layout

What I have so far is
Code:Private Sub Command1_Click()
Dim vTempLine As String
vTempLine = Chr(34) & Text1.Text & "$$bind_load_file " & Text5.Text & Chr(34)
List1.AddItem vTempLine
End Sub

This works great for Text1.

What I need to is, when I click > it goes to each text box and adds the path to each piece of text then drops it into the list box. If that wasnt enough I also need to increment the text file.

So Test.txt would become Test1.txt etc...

And the 100$ questions: How would I go about something like this?

Edited by - Logan 5 on 6/21/2004 10:58:59 AM

VB6 - Look Up Email Address From Outlook Address Book?
Hello everyone,
is there a posibility that I can look up email addresses from outlook email address book instead of accepting email address from an inputbox or hard-coding it?
See my codes below:
Thanks.

Code:

SENDEMAIL:
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)

OutlookMail.To = EmailID
OutlookMail.Subject = "Project Status"
OutlookMail.Body = "This is VB email test"

If Len(MailAttach) = 0 Then
OutlookMail.Attachments.Add MailAttach '"C:ProjectStatus.xls"
End If
tgifgemini

Retrieving A Current Web Address And IP Address Of The Website
When using IE or Firefox, I wanna be able to use a string to obtain the current web address you are in and also obtain the site's IP address. Any ideas on how to pull this off? Thanks

Router Address + Local Client PC Address
guys,

1. is there a way to get global ip (from client router) together with the client pc ip (within LAN)??

2. is Physical Address = MAC Address?

Fetch Address From Address Book-outlook
outlook
hi all
i have developed an application to send an email from VB, i dont know how to fetch all emails from address book and to send, @ present now the email and text is been displayed at the screen when we use to type the address or click it from address book then it send the mail,pls help
cheers
parthi

Pull Bottom Frame Address Into Address Bar
How do I pull the bottom frame address of my web page into the address bar of IE6?

From Textfile To Ms Excel Format (example: Address.txt To Address.xls)
Hello there,

I have to do a report in ms excel fromat. The data comes from a text file(example: address.txt) and the fields are not yet separated by a delimiter ("/" "," " " etc.). I delimit it with ms access and saving the table to "address.mdb" file then make queries . Then export it into an excel format.

My problem is that the user might not follow my instructions.

I need visual basic 6 to do all this. from textfile to ms excel format.

I need help on this, and does anyone can send me a vb program related to this?

Thanks,

Karl

How Can I Get URL Address And How Can I Receive Update URL Address Automatically?
Hi, Everybody

How can i get URL Address from Internet Explorer.
if i got URL address, i'll show this address in ListBox (or anything).

Another question is How can i receive update URL address automcatically?
u can think about it freely.
i hope u can reply to me about these questions as soon as possible.

THANK U Very Much for UR Kindness.

Address Book (Normal Vs SMTP Address)
I'd like to know if someone knows how to give a name and receive the smtp email address back from the outlook or mapi address book.

It seems that the SMTP service of IIS 4.0 doesn't do this, unfortunatly. I would like to build automatically a list of email addresses in a <select> field in ASP page using VBScript.

---
Nicolas LeBlanc
Software Engineer
Ordiplan Inc.

Variable Increment By Itself
Hi fellows,

I know this may seem like a stupid question, but I have tried several ways to get it to work, but with no luck.

here is my code below, before I explain the problem:

Code:

Private Sub btnCalculate_Click()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim ti As Integer
Dim nsteps As Integer
Dim td As Long
Dim pd As Long
Dim Qg As Long
Dim hh As Long

a = CInt(txtRop.Text)
b = CInt(txtKg.Text)
c = CInt(txtPhi.Text)
d = CInt(txtCp.Text)
e = CInt(txtMui.Text)
f = CInt(txtRw.Text)
g = CInt(txtPf.Text)
h = CInt(txtPwf.Text)
ti = CInt(txtTimeSteps.Text)
nsteps = CInt(txtSteps.Text)

Dim x As Integer
Dim i As Integer

For i = 0 To (nsteps - 1)

td = (7.324 * 10 ^ 8) * ((b * ti) / (c * d * e * (f ^ 2))) ' td

pd = 0.5 * (Log(td) + 0.81) 'pd

hh = a * ti ' hh

Qg = ((b * hh) / (50.35 * e)) * ((g ^ 2 - h ^ 2) / (pd * h)) 'Qg

lstData.AddItem (CStr(Qg)) + vbTab + vbTab + (CStr(hh))

lstTi.AddItem (CStr(ti))

x = ti ' Thought I could use these 2 lines to do it,
ti = x + ti ' but with no luck

Next

End Sub
basically I have a form in which the user can enter several numbers, on the click of the button, then a calculation is made, and the results of two final values Qg and hh are listed in the listbox as can be seen above. However I need the variable ti to increment by itself based on the value entered by the user in its associated text field. For example if someone enters 12, I want it to increment itself like 12, 24, 36, 48 etc.. With what I currently have, it just doubles itself each time. I have tried several methods and thought this one would work, but they all just double the variable instead of incrementing it by itself.

P.S. I used the second listbox lstTi just to monitor the value of the variable ti

I would appreciate some assistance with this matter.

Thanks

For Next Loop Increment
I want a For next loop that increments by 5 instead of one:

Code:
For j = 5 to 200

'CODE

Next

I want the j to go 5, 10, 15, 20, 25, ect. Is there an increment command to do this?

Thanks

Cant Seem To Get My Counters To Increment
Code:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim strFileName As String
Dim arrRawData() As String
Dim strLine As String
Dim numberOfLines As Integer
Dim i As Integer

Private Sub cmdStart_Click()
strFileName = "C:windowsdesktopTaskMyfile.dat"
numberOfLines = openInputFile(strFileName)
arrRawData = fillArray(numberOfLines)
'lblDisplay.Caption = numberOfLines
End Sub

Public Function openInputFile(strFileName As String) As Integer
Dim count As Integer
Open strFileName For Input As #1
Do Until (EOF(1) = True)
Line Input #1, strLine
count = count + 1
Loop
Close #1
openInputFile = count
End Function

Public Function fillArray(count As Integer) As String()
i = 0
ReDim arrRawData(count)
Open strFileName For Input As #1
Do Until (EOF(1) = True)
Line Input #1, strLine
arrRawData(i) = strLine
i = i + 1
Loop
Close #1
fillArray = arrRawData()
End Function

Variables i and count here.

Thanks for help!!!

Auto Increment
I have a form that I want to have a number in a textbox for example increment every time the user clicks a command button. I know how to do this, but when the application closes the number gets reset. Textbox.text=103 is at the start. When the user clicks it goes to 104 etc. If the application is closed, I want the number to remain as 104 and whne it is opened again and the user clicks, the number will change to 105 etc.
Thanks

Can You Increment A Variables Name?
I have a situation where I have say 40 variables with the names
Con1, Con2, Con3

Is there a way that I can change which variable I am writing to using an integer value behind the con
i.e.

dim lngNumber as long
Con & lngNumber
lngnumber=lngnumber+1

Thanks

Increment Problem
I have created the following code that will Increment numbers that users specify, The only problem that I am having is I cant get it too work when I put a number larger then 10 in because it automatically adds a "0" I have tried to sort this problem but cant seem to figure out the correct way, can anybody help!!

Private Sub CmdGenerate_Click()
Dim i%, j%, k%, UBoundIndex%, UBoundIndex1%, UBoundIndex2%, UBoundIndex3%, UBoundIndex4%, UBoundIndex5%
Dim RetVal
List1.Clear
UBoundIndex = InputBox("Enter First From Column Number.", "Counter")
UBoundIndex1 = InputBox("Enter First To Column Number .", "Counter")
UBoundIndex2 = InputBox("Enter Second Column Number.", "Counter")
UBoundIndex3 = InputBox("Enter Second To Column Number.", "Counter")
UBoundIndex4 = InputBox("Enter Third Column Number.", "Counter")
UBoundIndex5 = InputBox("Enter Third To Column Number.", "Counter")
For i = UBoundIndex To UBoundIndex1
For j = UBoundIndex2 To UBoundIndex3
For k = UBoundIndex4 To UBoundIndex5
If UBoundIndex < 10 Then
List1.AddItem "" & i & "-" & "" & j & "-" & "" & k & "," & List1.ListCount
If UBoundIndex >= 10 Then
List1.AddItem "0" & i & "-" & "0" & j & "-" & "0" & k & "," & List1.ListCount

End If
End If
Next k
Next j
Next i

Increment Function
i cant find an increment function in vb6. so i tried to write my own:

private function inc(byref var as integer)
var = var + 1
end function

but it does not work, why?

sorry if its a really n00b question

Auto Increment
hi all experts,
I have 4 different tables in MS-ACCESS.
i'm doing project for an engineering company. So they have different jaws for CNC machines. like OD DIAMETER, ID DIAMETER, MULTIPLE OD DIAMETER and MULTIPLE ID DIAMETER
i want to keep track of each issue of jaws to the worker......
so my question is that can i get one receipt number which is AUTO INCREMENT......and that will be unique for each issue of jaw.......is it possible to track 4 tables for AUTO INCREMENT of the receipt number.....

i think i'm clear in describing my question.........

need help
sachin

Increment Values
Is there a way to number the records and grab that value? For example, If I have "Select store, sales from SalesOrders order by sales desc" that I display in a grid. I want to diplay what number each record is. Is there a way to create and return those number in sql?

I know there are ways to create the numbers in vb but I really want it in my sql statement

Increment Field In Db...
hello...im trying to do a simple increment using access and vb6...on form load i set the connection to the db and created a select case function that would read the number of a field in the table...if its case 0 --> lblweek.caption = "Week 1" and so, up to "Week 10"...

i want to increment that single field in the table by clicking a button (send)...how is this possible?...thanks for your help...

Automatic Increment
Hi,
I am new to database programing and have this problem I can't find an answer to. This is the code I am using.

Code:
Set conData = New ADODB.Connection
conData.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "data.mdb"

strSQL = "CREATE TABLE League (" & _
"ID Integer NOT NULL IDENTITY(1,1) PRIMARY KEY," & _
"LeagueName Varchar(50)," & _
"BowlingCenter Varchar(50));"
conData.Execute strSQL
Set conData = Nothing
However when I add data the ID (primary key) does not increment. All my ID's are 1.
What am I doing wrong?
Thanks for your help.

Increment A Date
Hello,

I have an app that has an odbc connection to an access database. In that databse I have a date field, but at a certain time I want to increment that date field in 12 days.
For example, if the date is 1-9-04, it goes to 13-9-2004.
How can I do that?

Thanks in advance...

How To Increment A Value Of String
I have t he requirement where the string should get incremented in the last place (Ex: group1.goup2,....group n) Here the value of n should get increased and get inserted into the database..

This should be done in VB 6.0

If anyone has any idea regarding this pls try to post your view..

Thanks & Regards
Vamsi Krishna

Problem With Increment
Hi Everyone , have a nice day

well i am upto making a real time trend display in vb and for starting with i have randomly generated integers and trying to display them in a picture box , this is what i have so far

VB Code:
Private Sub Command3_Click()Dim counter As IntegerDim oldvalue As IntegerDim i As Integeri = 0 oldvalue = 10 counter = oldvalue Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Command1_Click()Dim txt As IntegerDim fb As IntegerDim ff As Integerfb = FreeFileff = FreeFile RandomizeOpen App.Path & " ime.txt" For Output As #fb Print #fb, (CInt(Rnd() * 200)) Close #fb Open App.Path & " ime.txt" For Input As ff txt = Input(LOF(ff), ff) Close ff Picture1.Circle (600 - (i * 5), 201 - txt), (2), vbYellow Label1.Caption = i End SubPrivate Sub Command2_Click()Unload Form1End SubPrivate Sub Timer1_Timer() i = i + 1 If counter = 0 Then Command1 = True counter = oldvalue Else counter = counter - 1 End IfEnd Sub

what this suppose to do is that display those random numbers in that picture box and goes to right from left with each next value (inside picturebox)
problem is my variable "i" isnt getting anything in command1_click
i have label1 to show me in run time that value its getting , but it goes blank , where am i making a mistake ?

Regards and Waiting

String Increment
hi experts
last time you gave me this code for string increment
AI/WE/23--+1 increment--->AI/WE/24
but when i passed
AI/WE/001--+1 increment--->AI/WE/2
i required
AI/WE/002
plz help me ,what chang i make this function
thanks in advance

Public Function IncrementString(ByVal sTxt As String, ByVal nIncrement As
Long) As String
Dim sParts() As String
Dim nUpperIdx As Long
'Split the string into different parts, use / as the delimiter
sParts = Split(sTxt, "/")
'the part to increment is the last number
nUpperIdx = UBound(sParts)
'Check that this part is numeric
If IsNumeric(sParts(nUpperIdx)) Then
'increment this part with nIncrement
sParts(nUpperIdx) = CStr(CLng(sParts(nUpperIdx)) + nIncrement)
End If
'Join the parts again and return the new string
IncrementString = Join(sParts, "/")
End Function

String Increment
i have strings values i required
AI/vb/sql/34 ---> after 1 increment--> AI/vb/sql/35
AI/vb/25 ---> after 1 increment--> AI/vb/26
Any Function or Code Plz help

Increment MonthName()
MonthName() returns the name of the month

I'd like to have a button that when clicked would increment month name (January...February...March and so on ) When it gets to December, the next one should be January.

VB Code:
MonthName(2) ' will return "February"

How can I increment do this? DateAdd()?

Auto-Increment
I need to auto-increment a number field but I don't want to use the auto-increment in the .mdb database. Anyone know how to do this? I'm using vb6 with the adodc data control.

Thanks

Increment Numbers
Hi,
I am trying to write a program that will increment numbers. I want to specify two sets of numbers and then generate them.

So :-

01-01-01
to
03-03-03

Would generate
01-01-01
01-01-02
01-01-03
01-02-01
01-02-02
etc etc
does anybody have any ideas how I could achieve this

thanks in advance

Humanski

Increment A String
Hey,

This is probably one of the simplist questions ever, but I have only just started using VB doing the majority of my programming in java.

I have a string

strReference which holds a character (eg 'A')

I simply want to get the value of the next character.

In java I could simply do strReference ++

but this is not avaliable and adding 1 gives a type mismatch.