how to attach file in vb and save files and how send that file mail

Question

0.00/5 (No votes)

See more:

hi i'm create one form like name age address cotacts comments user to type all that tab i need to save that all details in word format and i need to attach file in browse button and save that file in other location and i want to send mail in all the above details with attachment and i dnt want to open other window to send mail i just want to sigle click and and that detail will send mail that particular mail ID example@gmail.com like that user dnt want to change the mail ID..

pls help me.....

Posted 19-Oct-11 19:42pm

Sathya8561

Updated 20-Aug-20 5:53am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Manoj Kishor Bhoir · Answer 1 · 2011-10-26T05:18:00

To Save file you can use FileStram and StreamWriter Classes form System.Io
For Example :

VB

'Creating object of FileStream.Full filePath is the path where you want to 'Save the file and FileMode is Open/Create/CreateOrOpen.
Dim fs As FileStream=New FileStrea("FullFilePath","FileMode")
Dim sw as StreamWriter=New StreamWriter(fs)
'Writting Textbox Values into the File
sw.writeline("Textbox1.Text")
sw.writeline("Textbox2.Text")
'Closing FileStream
sw.Close
fs.Close
'Disposing the Objects
sw=Nothing
fs=Nothing

To send Mail on One Click use Following Code :
' place the following code in a command button click event

VB

Private Sub cmdSendMail_Click()
    Dim objOutlook As Outlook.Application
    Dim objMailItem As Outlook.MailItem
    Set objOutlook = New Outlook.Application
    Set objMailItem = objOutlook.CreateItem(olMailItem)
    With objMailItem.To = "ToAddress"  'recipient's address
        .Subject = "subject"  'subject box content
        .Body = "email message"  ' message goes here
        .Attachment = "c:\path\file.txt"    ' attach any files here
        .Send
    End With
    Set objMailItem = Nothing
    Set objOutlook = Nothing
End Sub