|
Hello! I've an application that uses vbSendMail.dll for emails. When in debug mode the application works smoothly. However once I've compiled/packaged the app using VS package and deployment wizard it does not send emails. Weird thing is it does not generate any error. vbSendMail.dll and mswinsck.ocx both have been included in the package and registered successfully. By the way I'm using vb6 for this app. This is the part of the email code
Set vbemail = New vbSendMail.clsSendMail
vbemail.SMTPHost = "****.*****.***"
vbemail.FromDisplayName = ""
sendemail
...................
vbemail.From = senderemail
vbemail.CcRecipient = "*********"
For i = 1 To Adodc3.Recordset.RecordCount
vbemail.Recipient = vbemail.Recipient + Adodc3.Recordset!email + ";"
Adodc3.Recordset.MoveNext
Next i
If Not txtemail.Text = "" Then
vbemail.CcRecipient = vbemail.CcRecipient + ";" + txtemail.Text
End If
vbemail.Attachment = Adodc1.Recordset!screenshot
vbemail.Subject = "[INCIDENT] WSA " & Adodc1.Recordset!incident & " " & Adodc1.Recordset!datereported
vbemail.Message = "Hi Sir/Ma'am" & Chr(13) & Chr(13) & "IR NO. : " & Adodc1.Recordset!irno & Chr(13) & "STATUS: " & Adodc1.Recordset!Status & Chr(13) & "PROBLEM CLASSIFICATION: " & Adodc1.Recordset!problemclassification & Chr(13) & "PROBLEM: " & Adodc1.Recordset!problem & Chr(13) & "RESOLUTION: " & Adodc1.Recordset!resolution & Chr(13) & Chr(13) & "WEBSITE: " & Adodc1.Recordset!websitename & Chr(13) & "DETAILS:" & Adodc1.Recordset!details & Chr(13) & "URL / LINK: " & Adodc1.Recordset!url & Chr(13) & "BROWSER USED: " & Adodc1.Recordset!browsertype & Chr(13) & Chr(13) & fulln & Chr(13) & departmnt
vbemail.Send
Set vbemail = Nothing
MsgBox "Email Sent", vbExclamation
Thanks in advance for any assistance on this dilemma 
Aim small, miss small
|
|
|
|
|
I don't know if that is .net or vb6, but I would tell you to check out This[^] article on how you can send emails with the .net framework.
|
|
|
|
|
I don't have the solution to your problem but I do have code that will work for you try:
Dim myMail As New MailMessage()
Dim eFrom As New MailAddress("*****@****.***")
myMail.From = eFrom
myMail.To.Add("*****@*****.***")
myMail.Subject = "Your subject"
myMail.Priority = MailPriority.High
myMail.Body = "Your message"
Dim myAttachment As New Attachment("your attachment")
myMail.Attachments.Add(myAttachment)
Dim smtpClient As New SmtpClient("**.**.**.**") 'Whatever your mail server address is
smtpClient.Send(myMail)
Replacing any * with the proper character and leaving out anything you don't need. Also remember to import Imports System.Net.Mail
|
|
|
|
|
You can't "imports" the .NET Framework libraries in VB6.. You can however, make a small executable that sends the file in VB.NET (download the VB.NET Express IDE, it's for free) and launch this process from VB6 whenever you need to send a mail 
I are troll
|
|
|
|
|
|
I would have thought you may have more luck in the mobile development forum. Look on the left 2 above the VB link!
I suspect you will be abused there as well for asking for the code.
We are here to help, not do the work for you.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Hi,
I have one windows application in that i created multiple exes.Now I am trying to build my application and combine multiple exes to one exe.But i am unable to that can you tell me the procedure to combine multiple exes to one exe and build that exe. If I build each exe seperately the application is also running seperately for each exe.
Thanks in Advance
pavani
|
|
|
|
|
You have a fundamental design problem, an exe by definition is atomic, you need to pick one of your program files (EXE) as the applicaion launcher and turn all the others into DLLs that are referenced by the application exe.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Thanks for your quick response.But in that code exe seperated by different module type.eg.one exe per one module.I will try it once.
|
|
|
|
|
I have an windows application there are different modules.for each module i created seperate project.so there are different exes for each module.now i am trying to combine those modules and trying to build whole application with one exe.they are working when i build individual exe.when i install the exe i am getting 4 exes for 4 modules.
|
|
|
|
|
You have, as has been stated, a serious fundamental design flaw in your application.
There is NO WAY to combine seperate .EXE's to into a single .EXE.
|
|
|
|
|
If you truly have 4 sep. exes, then break them out into their own respective executable. Then build a Menu type app that can launch each of the 4.
Otherwise, break the exes into sep objects as recommended by the previous members.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
I am using XML as data storage. In below code data is added but problem is Previous data losing.
The Previous data deleted and new data is added give me any solution.
This is code I m using.
Dim xml_write As New XmlTextWriter(Application.StartupPath & "\sam.xml", System.Text.Encoding.UTF8)
With xml_write
.Formatting = Formatting.Indented
.Indentation = 8
.WriteStartDocument(False)
.WriteStartElement("CP")
.WriteStartElement("rec")
.WriteAttributeString("no", "Male")
.WriteElementString("f1", "5001")
.WriteElementString("f2", "5002")
.WriteElementString("f3", "BOB")
.WriteElementString("f4", "BOB")
.WriteElementString("f5", "BOB")
.WriteElementString("f6", "BOB")
.WriteElementString("f7", "BOB")
.WriteElementString("f8", "BOB")
.WriteEndElement()
.WriteEndElement()
.WriteEndDocument()
.Flush()
.Close()
End With
Thanks in advance.
|
|
|
|
|
Yep, that's what New means you are asking for a new writer, adding data to the NEW writer and then writing it out which overwrites any existing file.
Suggestion
Use a datatable
1 create the table adding colums as required
2 insert data into the datatable
3 using the datatable's dataset you can write the table to an xml file (you may be able to use the table direct to xml)
2nd time in
1 look for the file
2 read the file into a dataset
repeat 2 & 3 from stage 1
This article uses the above methodology C# only[^]
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Load the XML file into XMLDocument instance. After adding the new values, call XMLDocument.Save. This will preserve the existing data.
|
|
|
|
|
|
Hello every one,
I need some help with text format in rich text box.
I am using a rich text box in which a user can past the text from text editors like Word. There the original format of the text (fonts, size, color)is shown.
But when i get the text and sen it in a db text field and get back i loose all the formatting
How do i retain all the formatting
Regards
Nishkarsh
|
|
|
|
|
I was able to do it by using .rtf property
Now i am facing another issue...
When i get the .rtf text from the rich text box, it is of really big size and the increase in size depends on formatting and things like use of table and other objects.
Not i am not able to find how big the field should be in the db to accommodate text of size 500 char...
I wrote 50 formatted char and it gave 483 char as output. I added a table (no data inside) and it increased to 1093
any idea
Regards
Nishkarsh
|
|
|
|
|
If you don't know how big the text will be, use the MAX version of datatypes. As per documentation, VARCHAR(MAX) can hold 2^31-1 bytes.
|
|
|
|
|
Is the .rtf property the most efficient way to serialize/deserialize the contents of a RichTextBox? Deserializing seems to take time n^3.
|
|
|
|
|
I have searched Google and the message boards but I can't find an answer to this.
strFileName = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\" & Me.dgvData.SelectedRows(0).Cells(0).Value.ToString & ".kml"
Dim sw As StreamWriter = New StreamWriter(strFileName)
sw.WriteLine(strXML)
sw.Close()
strFileName = Chr(34) & strFileName & Chr(34)
procID = Shell(strFileName, AppWinStyle.NormalFocus)
As soon as it hits Shell if stops with file not found, yet the file exists as it has just been created.
As you can see I tried enclosing the file name with "", but that has not helped either.
I am assuming that since a kml file extension is registered to Google Earth that I don't need to specify GE. The file runs just fine if I find it in My Documents and double click it.
Anyone out there who can help? 
|
|
|
|
|
Thanks Folks. Question answered in the "How do I..." about the screen saver.
Process.start works just fine.
|
|
|
|
|
hello friends.
i know little knowledge of vb.plz help me if u can.
i want to rotate a text line of about 5oo characters on a single label or any other object which can be changed in the output.
the project is like we read news on the bottom of a news channel which marquees from left to right or right to left.
thanx 4 giving ur precious time but plz help
|
|
|
|
|
|
thanx for d reply it helped me to understand.
please xplain where to find this superMarquee control in vb. which version conain this.
and please tell me how i can change the element text at runtime.
thanks 4 ur concern
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
