[RESOLVED] Send email VB6

[wilder1926]

Hello all

I'm trying to modify this part of the code:

'Set OLRecipient = OLNameSpace.CreateRecipient("[email protected]")

Instead of putting the email in the code, i would like to use a text1 where i can put a custom address, directly in my Form4.email_le_vignoble.Text.

how can i do that?

I have tried like this:

	

Set OLRecipient = OLNameSpace.CreateRecipient.Form4.email_le_vignoble.Text

But i have the compile error " Argument not Optional"

Thanks again

Thanks again for your help

[dglienna]

Dim strEmail as String
strEmail   =  """ & Form4.email_le_vignoble.Text & """

[wilder1926]

Hello dglienna
This is perfect. Now it working perfectly

Dim OLApp As Outlook.Application
Dim OLNameSpace As Outlook.Namespace
Dim OLRecipient As Outlook.Recipient
Dim OLAppt As Outlook.AppointmentItem
Dim strEmail As String



Set OLApp = New Outlook.Application
Set OLNameSpace = OLApp.GetNamespace("MAPI")
OLNameSpace.Logoff
OLNameSpace.Logon "Logon Name", "Password", False, True

'emai
strEmail = """ & Form4.email_le_vignoble.Text & """
Set OLAppt = OLApp.CreateItem(olAppointmentItem)

Thanks again for your help

[firoz.raj]

You can go on with this following code .it works like a charm for me .really nice code to send email using Ms outlook .

Option Explicit
Private Sub Form_Load()
Call SendMailUsingOutLook
End Sub
Public Sub SendMailUsingOutLook()
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
   .To = "[email protected]"
   .Cc = "[email protected]"
   .Subject = "Sending Emails using Outlook."
   .Body = "find this email"
   .HTMLBody = "HTML version of message"
   .Attachments.Add ("c:\imp.txt")
   .Send 'Let´s go!
End With
Set objOutlookMsg = Nothing
End Sub:wave:

[wilder1926]

Hello firoz.raj. Let me try this and i will let you know the result

Thanks

[firoz.raj]

before i post i have checked the code .this code working like a charm.