Sathya8561 Ответов: 1

как прикрепить файл в vb и сохранить файлы и как отправить этот файл по почте

Привет я создаю одну форму как имя возраст адрес cotacts комментарии пользователя чтобы ввести все что вкладка мне нужно сохранить что все детали в формате word и мне нужно прикрепить файл в кнопку Обзор и сохранить этот файл в другом месте и я хочу отправить почту во всех вышеперечисленных деталях с вложением и я dnt хочу открыть другое окно для отправки почты я просто хочу sigle нажмите и и эта деталь будет отправлять почту Этот конкретный почтовый идентификатор example@gmail.com например, что пользователь dnt хочет изменить почтовый идентификатор..


пожалуйста, помогите мне.....

1 Ответов

Рейтинг:
2

Manoj Kishor Bhoir

Для сохранения файла вы можете использовать FileStram и системных классов модулю записи StreamWriter форма.Ио
например :

'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


Для отправки почты в один клик используйте следующий код :
'поместите следующий код в событие нажатия командной кнопки
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