Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Merita un Termostat Smart pentru ...

Sfat achizitie MTB Devron Riddle

Problema mare cu parintii= nervi ...

switch microtik
 Permis categoria B la 17 ani

Sfaturi pentru pregatirea de eval...

Crapaturi placa

cum imi accesez dosarul electroni...
 Momentul Aprilie 1964

Sursa noua - zgomot ?

A fost lansat Ubuntu 24.04 LTS

Pareri apartament in zona Berceni?
 Free streaming SkyShowtime de la ...

Skoda Fabia 1.0 TSI (110 CP)- 19 ...

Mezina familiei, Merida BigNine

The Tattooist of Auschwitz (2024)
 

Visual Basic 6 "Send Email"

- - - - -
  • Please log in to reply
5 replies to this topic

#1
weRnSource

weRnSource

    New Member

  • Grup: Members
  • Posts: 7
  • Înscris: 24.07.2008
Salut ,
In primul rand vreau sa spun ca sunt un incepator in ceea ce priveste VB.M-am "bagat" intr-un proiect scolar de vacanta cu inca un prieten(si el e incepator).Ceea ce vrem noi sa facem si sa invatam sa facem este trimiterea unui email printr`un program creat cu VB.Exemplu : LINK   dorim sa facem acest program.Avem codul dar nu avem experienta necesara sa prelucram acest program.Daca cumva este vreun doritor sa ne ajute rog sa posteze aici si o sa ii dau eu  un pm cu date de contact.Sau daca credeti ca este usor de facut va rog sa imi da`ti detalii legate de acest program.Mai mult m-ar interesa CUM este facut programul in pasi.Multumesc

#2
weRnSource

weRnSource

    New Member

  • Grup: Members
  • Posts: 7
  • Înscris: 24.07.2008
Nimeni nu ma poate ajuta?

#3
weRnSource

weRnSource

    New Member

  • Grup: Members
  • Posts: 7
  • Înscris: 24.07.2008
asta este codul:


Private Sub Commandl_Click()  'Sends the email
On Error Resume Next
    Dim mailman As New ChilkatMailMan2
    Dim success As String
    mailman.UnlockComponent "UnlockCode"
    mailman.SmtpHost = "smtp.comcast.net"

    Dim email As New ChilkatEmail2

        email.subject = txtSubject.Text
        email.Body = txtBody.Text
        email.AddTo txtToName.Text, txtToEmail.Text
        email.FromAdress = txtFromEmail.Text
        email.fromName = txtFromName.Text
        email.AddFileAttachment txtAttachment.Text
        success = mailman.SendMail(email)


    If (success = 0) Then
        MsgBox "The email did not send", vbCritical, "Error"
    Else
        MsgBox "The email was sent", vbInformation, "Sent"
    End If
End Sub

Private Sub Command2_Click()  'Attachment
On Error Resume Next
    CommonDialog1.ShowOpen
    txtAttachment.Text = CommonDialog1.FileName
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub



trebuie un dll chilkatmail (il am),insa nu inteleg cum trebuie aranjate si cum trebuie sa folosesc dll'ul ala.daca vreti pana la urma sa ma ajutati v-as fi foarte recunoscator.

#4
_Gio_

_Gio_

    Member

  • Grup: Members
  • Posts: 577
  • Înscris: 11.06.2006
De curiozitate asa, la ce-ti trebuie?

#5
weRnSource

weRnSource

    New Member

  • Grup: Members
  • Posts: 7
  • Înscris: 24.07.2008

 _Gio_, on Jul 28 2008, 08:05, said:

De curiozitate asa, la ce-ti trebuie?
citeste primul post.Proiect...stiu am citit regulamentul...dar pur si simplu imi doresc sa invat cum se fac programele daca am codul.Deci eu am codul dar nu stiu cum sa le asamblez si cum sa lucrez cu chilkatmail.

#6
_Gio_

_Gio_

    Member

  • Grup: Members
  • Posts: 577
  • Înscris: 11.06.2006

 weRnSource, on Jul 28 2008, 11:42, said:

citeste primul post.Proiect...stiu am citit regulamentul...dar pur si simplu imi doresc sa invat cum se fac programele daca am codul.Deci eu am codul dar nu stiu cum sa le asamblez si cum sa lucrez cu chilkatmail.
Pai astea sunt notiuni de baza. Ai codul si nu stii cum sa-l folosesti. Eu zic sa te mai informezi (sunt zeci de site-uri la care poti sa apelezi). Oricum, in cateva zile nu o sa resuesti. Nu merge asa "imi doresc sa invat cum se fac programele daca am codul". Codul trebuie sa-l faci tu. Sau macar o parte din el...

Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate