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 |
Visual Basic 6 "Send Email"
Last Updated: Jul 28 2008 11:26, Started by
weRnSource
, Jul 24 2008 18:26
·
0
#1
Posted 24 July 2008 - 18:26
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 |
#3
Posted 27 July 2008 - 19:51
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. |
#5
Posted 28 July 2008 - 10:42
#6
Posted 28 July 2008 - 11:26
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. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users