Jump to content
Romeo

Coding Email Vb6

Recommended Posts

huh.gif

A'kum dan salam sejahtera sumer,

Aku ada satu masalah ler.. Aku buat satu sistem kat MS Access & nak hantar email dr sistem tu, sape tahu coding utk hantar email tu hah? Boleh tologn ker kalu ada yg tahu... aku ada dpt 1 coding tp kat Subject ngan Body email tu mesti ada underscore- "_" ler... cam ne tu??

TQ

Share this post


Link to post
Share on other sites

aku pernah buat... program vb tu link dgn outlook express. sebelum tu kena setting outlook express dgn akaun yg ada pop3 (cthnya company punya atau tmnet). masa exit outlook jangan log-out. ada bahagian setting preference, buang tanda tick pada 'Warn me if another application is trying to send email'

cuba carik dari www.planetsourcecode.com

carik yg guna outlook.application

atau kalau rajin cuba pegi kedai buku (MPH misalnya) carik buku size setengah kertas A4 warna merah tajuknya Visual Basic Complete. harga maybe RM60. tapi takyah le beli. selak2 pastu cubala hafal coding tu. carik bahagian vb link dgn MS Office application.

.

.

kalau tak silap, coding yg ada tanda underscore tu ialah bila kita buat coding pastu taknak tulis panjang2 dlm satu line, gunakan underscore sbg tanda yg kita nak turun ke line kedua, tapi line coding berterusan.

cth :

text1.text = "Terima kasih"

_ & "Jumpa lagi"

coding ni sama je kalau nak tulis dlm satu baris... camni je

text1.text = "terima kasih" & "jumpa lagi"

Share this post


Link to post
Share on other sites

pakai replace nyer command...

ini contoh coding die...

Dim string1, string2 As String
string1 = "nama saya ahmad"
string2 = Replace(string1, " ", "_")
label1.Caption = string2

nnt output die (kat label1) jadik mcm ni...

nama_saya_ahmad

sekian terima kasih

Share this post


Link to post
Share on other sites

A'kum.. tq kepada aRmsTer ngan darkranger krn sudi memberikan bantuan... aku akan cube cara kalian itu...

Tp aku ada 1 lg soalan, boleh tak kita send terus email tu tanpa menggunakan Outlook @ sebarang app. lain? makna nye, kita send terus dari VB tu ke email org lain...

Sekian, wassalam...

Share this post


Link to post
Share on other sites

Dulu aku ada buat jugak program email guna VB6 nih... aku connect straight ke SMTP guna winsock ke PORT 25... ini contoh cara aku connect dan hantar message


Winsock1.Connect mystmpserver.com, 25  'tukar ke SMTP ngko
While Winsock1.State <> sckConnected
        DoEvents
Wend

Winsock1.SendData "HELO " + Winsock1.LocalHostName + vbCrLf 'smtp servername
Winsock1.SendData "MAIL FROM:<[email protected]>" + vbCrLf 'Carrriage return tuh penting
Winsock1.SendData "RCPT TO:<[email protected]>" + vbCrLf 'recepient email addr
Winsock1.SendData "DATA" + vbCrLf 'start sending mail body
Winsock1.SendData "From: <[email protected]>" + vbCrLf + _
                      "To: <[email protected]>" + vbCrLf + _
                      "Subject: Test email" + vbCrLf + _
                      "X-Mailer: anyMail v1.1" + vbCrLf + _
                      "Mime-Version: 1.0" + vbCrLf + _
                      "Content-Type: text/plain;" & vbTab + "charset=us-ascii" + vbCrLf + vbCrLf +"Test"
Winsock1.SendData vbCrLf + "." + vbCrLf 'Telling server DATA dah abis hantar
Winsock1.SendData "QUIT" 'Cakap kat server bye bye
Winsock1.Close 'close connection

adios

Edited by Rads78

Share this post


Link to post
Share on other sites

kalau asp guna server.createobject("Cdont.Newmail")

kalau VB try guna createobject("Cdont.Newmail")

cdont object utk XP dan win2000 je

Share this post


Link to post
Share on other sites

selain dari guna vb yg link dgn outlook, boleh jugak buat program yg akan guna port SMTP server utk hantar email. kita boleh menyamar dgn sebarang nama email contohnya [email protected]

pernah buat lawak dgn member aku.... kononnya [email protected] hantar email kat dia cakap dia kena kick dari U sebab terlibat dgn aktiviti2 parti pembangkang..... laugh.gif kah! kah! kah! gelabah member aku tu.... laugh.gif

tapi masalahnya teknik dgn smtp ni kita perlukan ip address server dgn port SMTP yg dibuka. sekarang ni semua server secara default SMTP nya ditutup sebab teknik SMTP-Relay ni dah diharamkan sebab membolehkan sesapa je hantar email dari server ni khususnya utk tujuan sebar virus atau email spamming.

kalau mana2 company biarkan port SMTP server dia dibuka.... dalam masa beberapa jam je, beribu program entah dari mana2 akan dpt detect dan cuba hantar email dari situ. selang sehari dua dapat la email warning dari Polis-Polis Internet (betul ke istilah aku ni?)

Share this post


Link to post
Share on other sites

Akum sumer.. nak tanya sikit sbb aku tak tahu... SMTP tu ape? Kalu boleh, aku nak tahu cara darkranger buat tu... cara Rads78 tua ku dah cuba tp tak jalan pon...

Tq..

Share this post


Link to post
Share on other sites

Simple Mail Transfer Protocol

Protokol utk anto mail dalam net..

macam code yg rads tunjuk tuh, ko kene carik server yg open port SMTP dier, mcm yg darkranger cakap...

kalo ko nak buat cam rads tuh..carik ler server yg open SMTP nyer

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
×
  • Create New...