How do i get this to work?

[lumin]

I know I have done somthing wrong but I can't realy figure it out my self so i need your guys/Girls Help.

I get a error when using this code

Private Const mailserver As String = txtMailServ.Text
Private Const Tobox As String = txtToMail.Text
Private Const Frombox As String = txtFromMail.Text
Private Const Subject As String = txtSubject.Text

as you might notice I would get an error on the txtMailServ.text and the Other text boxses.
How can i make it so that I would not get a compile error ?

need more info about the project just ask.

Thanks.


-Lumin

[MartinLiss]

Using mailserver as an example, do you really want it to be a constant? If so then you need to code it this way

Private Const mailserver = "My server Name"

If it should be a variable then


Private mailserver As String

mailserver = txtMailServ.Text

------------------
Marty
What did the fish say when it hit the concrete wall?
> > > > > "Dam!"

[lumin]

Thanks for the replay.

the second example you made didn't work and it was that one who looked like the one I want.

isn't there a way to to do it or do I ahve to rewrite the hole thing to get it to work?


-Lumin

[Tonio169]

lumin

a constant should always have a predetermined value, otherwise declare it as a variable.

Private mailserver As String
mailserver = txtMailServ.Text

like MartinLiss suggested.

[lumin]

ok. Thanks for the replay.

I only got 1 more question.

I tried declaring it as an variable, but I didn't get it to work.
(ye ye ye I know im stupid
can someone help me, I think i may have done somthing wrong, so how do i declare somthing as an Variable?

Thanks.


-Lumin
------------------
Stupid as a Pencil

[lumin]

oh... stupid me...

I just found out what I did wrong...

well declaring it as an Variable didn't work, I also tried to declare it as an Variant but that didn't work to (dah big suprise).

So i got a problem here.

I want the users of my program to automaticly change the settings for the e-mail server subject and so on. but when declaring it as an string I have to preset those thing and I can't change them (unless someone know how to).
and when declaring them as Variable the program just won't send the eMails or the server just want them (I think its the first part.)

I have Included the Code so you can see whats wrong.

Option Explicit
Dim bTrans As Boolean
Dim m_iStage As Integer
 
'Private Const mailserver As String = "online.no"
'Private Const Tobox As String = "[email protected]"
'Private Const Frombox As String = "[email protected]"
'Private Const Subject As String = "test"

Private mailserver As String
Private Tobox As String
Private Frombox As String
Private Subject As String


'***************************************************************
'Routine for connecting to the server
'***************************************************************


Private Sub Connect_Click()

mailserver = txtMailServ.Text
Tobox = txtToMail.Text
Frombox = txtFromMail.Text
Subject = txtSubject.Text

If txtMailServ.Text = "" Then
   MsgBox "ERROR: No Mail Server Selected", vbCritical, App.EXEName
If txtToMail.Text = "" Then
   MsgBox "ERROR: No Reciver Selected", vbCritical, App.EXEName
Else

    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.LocalPort = 0
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.Connect mailserver, "25"
    bTrans = True
    m_iStage = 0
    Transmit m_iStage
End If
End If

MsgBox "eMail was Sendt Sucsessfully", vbOKOnly, App.EXEName
End Sub

'***************************************************************
'Transmit the E-Mail
'***************************************************************


Private Sub Transmit(iStage As Integer)

mailserver = txtMailServ.Text
Tobox = txtToMail.Text
Frombox = txtFromMail.Text
Subject = txtSubject.Text

    Dim Helo As String, temp As String
    Dim pos As Integer


    Select Case m_iStage
        Case 1:
        Helo = Frombox
        pos = Len(Helo) - InStr(Helo, "@")
        Helo = Right$(Helo, pos)
        Winsock1.SendData "HELO " & Helo & vbCrLf
        Case 2:
        Winsock1.SendData "MAIL FROM: <" & Trim(Frombox) & ">" & vbCrLf
        Case 3:
        Winsock1.SendData "RCPT TO: <" & Trim(Tobox) & ">" & vbCrLf
        Case 4:
        Winsock1.SendData "DATA" & vbCrLf
        Case 5:
        temp = temp & "From: " & Frombox & vbNewLine
        temp = temp & "To: " & Tobox & vbNewLine
        temp = temp & "Subject: " & Subject & vbNewLine
        'Header + Message
        temp = temp & vbCrLf & txtMsgBody.Text
        temp = temp & vbCrLf & vbCrLf & vbCrLf & "This eMail was Sendt to you by AES (Anonymus eMail Sender)" & vbCrLf & "v.1.0 by Lumin (http://home.sol.no/~lumin/)"
        'Send the Message
        Winsock1.SendData temp
        Winsock1.SendData vbCrLf & "." & vbCrLf
        m_iStage = 0
        bTrans = False
    End Select

End Sub

'***************************************************************
'Routine for Winsock Errors
'***************************************************************


Private Sub Winsock1_Error(ByVal number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

    MsgBox "Error:" & Description, vbOKOnly, "Winsock Error!" ' Show error message


    If Winsock1.State <> sckClosed Then
        Winsock1.Close
    End If

End Sub

'***************************************************************
'Routine for arraving Data
'***************************************************************


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim strData As String
    On Error Resume Next
    Winsock1.GetData strData, vbString
    'txtStatus.Text = txtStatus.Text & strData


    If bTrans Then
        m_iStage = m_iStage + 1
        Transmit m_iStage
    Else
        If Winsock1.State <> sckClosed Then Winsock1.Close
    End If

End Sub

Private Sub Exit_Click()

    On Error Resume Next
    If Winsock1.State <> sckClosed Then Winsock1.Close
    End
End Sub

Hope some one can help me.

Thanks anyway.


-Lumin



[This message has been edited by lumin (edited 02-15-2000).]

[Tonio169]

lumin,

i'm kinda slow in detecting errors in a such a long code and i know nothing about communication programs. maybe you could tell me what line makes the error and the error message and then maybe i could help.

[lumin]

Hi
Thanks for the replay.

ok actual there is no error i the program, but when using the code that goes from line 9-12 (those who are not greened out.) the program simply won't send the eMail but when using the predefined code line: 5-8 it works.
so my question was if anyone knew if I could replace line 5-8 with somthing that looked like 9-12 since 9-12 is configurable by the users while 5-8 ain't. confusing?
(I counted the numbers of lines begining with the Option Explicit line)


-Lumin

[This message has been edited by lumin (edited 02-16-2000).]