|
|
Dim date1 As Date = "30.05.2005 13:54:00"
Response.Write("Hours Passed From 30.05.2005 13:54 to now is:")
Response.Write(" " & ((DateTime.UtcNow.Ticks) - (date1.Ticks)) / TimeSpan.TicksPerHour)
-MCP& MCAD &junior coder--
|
|
|
|
|
|
i thought it is asp.net forum..
sorry...
-MCP& MCAD &junior coder--
|
|
|
|
|
|
I made lot's of mistake at once
It was not a comment for you, just a little help for pyxcho_a..
sorry again..
-MCP& MCAD &junior coder--
|
|
|
|
|
Anyone knows the coding to count the number of pages in a selected microsoft word's document??
|
|
|
|
|
<br />
Function GetBuiltInProperty(objDoc As Object, _<br />
strPropname As String) As Variant<br />
<br />
' This procedure returns the value of the built-in document<br />
' property specified in the strPropName argument for the Office<br />
' document object specified in the objDoc argument.<br />
<br />
Dim prpDocProp As DocumentProperty<br />
Dim varValue As Variant<br />
<br />
Const ERR_BADPROPERTY As Long = 5<br />
Const ERR_BADDOCOBJ As Long = 438<br />
Const ERR_BADCONTEXT As Long = -2147467259<br />
<br />
On Error GoTo GetBuiltInProp_Err<br />
<br />
Set prpDocProp = objDoc.BuiltInDocumentProperties(strPropname)<br />
With prpDocProp<br />
varValue = .Value<br />
If Len(varValue) <> 0 Then<br />
GetBuiltInProperty = varValue<br />
Else<br />
GetBuiltInProperty = "Property does not currently have a value set."<br />
End If<br />
End With<br />
<br />
GetBuiltInProp_End:<br />
Exit Function<br />
GetBuiltInProp_Err:<br />
Select Case Err.Number<br />
Case ERR_BADDOCOBJ<br />
GetBuiltInProperty = "Object does not support BuiltInProperties."<br />
Case ERR_BADPROPERTY<br />
GetBuiltInProperty = "Property not in collection."<br />
Case ERR_BADCONTEXT<br />
GetBuiltInProperty = "Value not available in this context."<br />
Case Else<br />
End Select<br />
Resume GetBuiltInProp_End:<br />
End Function<br />
Try the "Pages" property.
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
Hy guys, i'm Alessio and i'm writing to ask you where I can find info about ie plugin developing.
I don't know if it is a possible job and, if yes, how could i do it.
So, thanx in advance and excuse me for my english.
|
|
|
|
|
Hi I am trying to save email message to personal folder and also attachment. But when I tried to run the code, until it tried to access c:\ folder it gives an error: Object reference not set to an instance of an object. do you know what happen. Thanks
Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objMAPIFolder As Outlook.MAPIFolder
Dim objMailItem As Outlook.MailItem
Dim iRow As Integer, i As Integer, j As Integer
objApp = New Outlook.Application
objNameSpace = objApp.GetNamespace(Type:="MAPI")
objMAPIFolder = objNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
For i = 1 To objMAPIFolder.Items.Count
objMailItem.SaveAs("c:\Outlook\" & objMailItem.Subject & ".msg") 'error says Object reference not set to an instance of an object.
If objMailItem.Attachments.Count <> 0 Then
For j = 1 To objMailItem.Attachments.Count
objMailItem.Attachments.Item(j).SaveAsFile("c:\Outlook\" & objMailItem.Attachments.Item(j).FileName)
Next j
End If
Next i
|
|
|
|
|
|
do you mean as outlook.MailItem?
|
|
|
|
|
Yeah, you need to assign something to it, otherwise it will be null. Maybe you missed a line of code that assigned something to it?
Regards
Senthil
_____________________________
My Blog | My Articles | WinMacro
|
|
|
|
|
Hi,
Not sure where to post this so i'm posting it here and in the C# forum...
I'm busy converting an old VB 6 app to .NET and I'm having a little issue with crystal. In the VB 6 code, when you export a report to disk, it used to pop up a dialog box that showed you how far, percentage wise, it was in the export. I've converted this to .NET and it exports perfectly BUT it doesn't pop up that little crystal dialog box to show how far the export is...
Anyone have any ideas on this? I've looked for methods and properties in the ReportDocument and ExportOptions classes but couldn't see anything.
Thanks!
Nick
The man who smiles when things go wrong has thought of someone he can blame it on.
If you tell a man there are 300 billion stars in the universe, he'll believe you. But if you tell him a bench has just been painted, he'll have to touch it to be sure.
|
|
|
|
|
I want to add some program in between some other program
means i want to trigger some hardware through lpt port in between a slide show in acdsee program can any body help me to do this....
|
|
|
|
|
You can't get Acdsee to call your code without some pretty serious hacking. There are articles on CP about hacking Minesweeper to add menu items, but getting something to happen as part of a process is a lot more involved. Certainly, I doubt VB is even up to the task, it sounds like a C++ job to me.
Why don't you just write your own slideshow, that would be easier I reckon.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I want to display TGA files as full screen slide show can you sujjest me a ocx control which will work for me please .....
|
|
|
|
|
You're using VB6 ? Sorry, I don't use VB at all, and I answer vb.net questions because they use the .net framework, which I do use.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I've created a small app in vb.net and during the deployment the setup file doestn't have an Icon, does anyone know how to change this.
BINARY
|
|
|
|
|
I have written a small app in vb.net (Using VS2005 Beta) that performs some screen scrape operations. The website that I am scraping has a structure like website.com/Page.asp?id=xxxxx
The id's are numeric and so my app loops thru one at a time incrementing the ids.
My internet setup is Cable modem with a Netgear router. About every 20 minutes while this app is running, my router loses connection with the modem causing me to have to unplug and replug in the router. A few seconds later everything resumes normally. I have never experienced this problem with my router and only behaves like this when this app is running. Have you ever seen something like this? Any ideas on the cause?
|
|
|
|
|
If you're scraping this site, then it's probably God punishing you.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Lol, perhaps. Well, in my defense, Im only scraping for personal consumption.
|
|
|
|
|
Makes no difference to the effect you have on the bandwidth of the sites you scrape.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I have a small program to send emails thru visualbasic 6.0. I am using vbSendMail component. When i tested my program in the localnetwork its working fine. But when i run the same exe in Internet there was no error, but the mail was not sent. I think it the problem with the SMTP server. I have downloaded QK SMTP Server and installed in my system. Now when i run my program in the internet its working ( i have give the SMTP server name as 127.0.0.1). Now i want to run my program in the internet without using any other SMTP Server. How could i do this.. I am always connected to internet and i have my own webspace. How could i use my webservers SMTP address/ip and run my program.
Thanks in advance,
Electronic Screw
|
|
|
|
|
In your code you could try putting in a reference to your local SMTP Server such as:
SmtpMail.SmtpServer="localhost"
I have similar where my code is in a submit button and fields in a form are filed and sent and when I click button this code is called:
Mailmessage mail = new MailMessage()
mail.To="e_screwz@company.com"
mail.From="user@usercompany.com"
mail.Subject=""
mail.Body=""
SmtpMailServer="localhost"
SmtpMail.Send(mail)
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
