Re: IP Address of computers on a network - Visual Basic Discussion Boards

Trupti Mehta21-Aug-07 23:44

21-Aug-07 23:44

Hello Friends,

I want to write a prg., which will have a Rich Text Box. User can enter & format text. Can be saved in a RFT file. I know all that stuff. My point is, user will open a rtf file, select customers to send the letter to. I got to merge the letter and the addressed of the customers and the user can print Page wise. Can I save it in a new rtf or doc file? I want similar output as we do in Word.

Is this kind of application possible! If I let this application make from some one, how much should it cost (Just to make my work easy, want to know)?

I want to make it, how do I make it. Any guidlines, reference, help is highly appreciative.

Thanks

Terry

How to avoid html tag in body of mail while saving to db.

rahul.net1121-Aug-07 23:40

rahul.net11

21-Aug-07 23:40

Hi In my application i am downloading mail from server for that purpose
i am using indy socket liabery and pop3 protocol.while downloading mail
if the mail body contain html tag (if it contain html table) then while
saving mail body to database it saves mail with all html code like
<doc type:="" w3...=""><htm> like that it uses all html tag i want to
save only text not the tag how can i do this.Currently i am doing as

If (xMsg.MessageParts(x).ContentType = "text/html") Then<br />
    body = CType(xMsg.MessageParts.Items(x), Indy.Sockets.Text).Body.GetText()<br />
    End if

if the mail contain html table and i checked with
type=xMsg.MessageParts(x).ContentType then is type variable
shows text/plain format and if i checked with
Dim s As String = xMsg.ContentType then it shows correct
"text/html" format. I i want to avoid html tag from body then how can i
do this.

Thanks.

Rahul

Need help here

dienadel21-Aug-07 23:05

dienadel

21-Aug-07 23:05

Hi,

I have been receiving this error to a program im developing and I cant figure out what it is.
Can anyone help me its urgent.

I have added a new sheet on an xlt file and add it to the code which is:

Public Sub Survey_1(ByVal report As String)

Dim stored_func() As String = { _
"[Production charts - Survey_1 - Export prices]", _
"[Production charts - Survey_1 - Export Price increase]", _
"[Production charts - Survey_1 - Export Price decrease]", _ <-- this one
"[Production charts - Survey_1 - Price increase by product]", _
"[Production charts - Survey_1 - Price increase by location]", _
"[Production charts - Survey_1 - Capacity]", _
"[Production charts - Survey_1 - Capacity expansion]"}
CreateReport(stored_func, report)

End Sub

Im getting the error on this side of the code:

Dim db1 As New DbTier
db1.DbSource = GetSetting("Server", "Data Source", "CSR", "")
db1.OpenConnection()

Dim i As Integer

Dim wb As Workbook = mvarExcel.Workbooks.Open(mvarTemplate)
Dim ws As Worksheet
Dim rg As Excel.Range
Dim drd As OleDb.OleDbDataReader

For i = LBound(stored_func) To UBound(stored_func)

ws = wb.Worksheets(i + 1)
rg = ws.Range("DATA" & i + 1) < ---- bug here
rg.ClearContents()

If i = 0 Then ws.Range("csr_title").Value = mvarCsrDetails(CsrIndex.Title)
drd = GetDataReader(db1, stored_func(i), mvarCsrDetails(CsrIndex.ID))

Dim r As Integer = 0
Dim c As Integer

While (drd.Read())
r += 1
For c = 0 To drd.FieldCount - 1
rg.Cells(r, c + 1) = drd(c)
RaiseEvent OnAfterEachProcess(stored_func(i))
Next c
End While

Call AdjustRange(ws, "COL1S" & i + 1, False)
Call AdjustRange(ws, "COL2S" & i + 1, True)

drd.Close()

Next

drd = Nothing
db1.CloseConnection()
db1 = Nothing

RaiseEvent OnAfterProcessDone("Saving " & report & ".")
Dim fleOutput As String = mvarOutputPath & UCase(mvarCsrDetails(CsrIndex.Title)) & " " & report & ".xls"
If File.Exists(fleOutput) Then File.Delete(fleOutput)
wb.SaveAs(fleOutput)
wb.Close(False)

the error says:

system.runtime.interopservices.COMException' occured in server2.2.exe

additional information: Exception from HRESULT: 0x800A03EC

Re: Need help here

Paul Conrad26-Aug-07 9:30

Paul Conrad

26-Aug-07 9:30

dienadel wrote:
its urgent

That is not nice around here. It'll just piss people off.

As far as the error is concerned, Exception from HRESULT: 0x800A03EC, those are notorious for not being very descriptive. Check that you don't have old processes running from previous debug sessions, and also make sure the parameters are called correctly. MSDN can be of more help...

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

IP Address of computers on a network

plural21-Aug-07 22:25

plural

21-Aug-07 22:25

Hello,
anybody with help on how to get the ip addresses or names of computers on an LAN.I tried using the directory services but doesnt work and the netview thing also kinda doesnt work, anybody with help?Thanks

phatkin