[code inside]VB 6.0 code outo email sender [ASK]

[Linuxmania]

pagi agan"...ane lagi buat project report, yang nantinya report ini akan dikirmkan melalui email, nah project ini udah jadi gan...



hasil reportnya .txt udah berhasil ane create, terus email sendernya juga udah berhasil terkirim.



tapi semua itu masih manual gan, jadi buat create reportnya ane buatin button, terus buat kirim email dengan attach reportnya itu juga ane buatin button. intinya sih program ane cukup dua kali pencet tombol reportnya udah kekirim ke alamat email yang dituju.



nah ane minta bantuan agan2 kalo ada yang ngerti buat automationnya gan. (pake timer sih harusnya)



jadi ane mau tiap jam 5 pagi ne program otomatis jalan dan ngirim email reportnya gan.



ada yang bisa bantu gak??

nih code yang udah ane buat

[spoiler="sub cetak report dari DB ke TXT"]


Quote:





Private Sub cetak()

Dim grs As String

Dim jrk As String

Adodc1.Refresh

Set rs = Adodc1.Recordset





grs = String$(160, "=")

jrk = String$(10, " ")



Open "D:\tes\report_giv.txt" For Output As #1

Print #1, grs

Print #1, " REPORT LOCATION_DETAIL"

Print #1, grs & vbCrLf

Print #1, "STORERKEY", jrk, "SKU", jrk, "MATERIAL", jrk, "LOCATION", jrk, "LOCATIONFLAG", jrk, "STATUS", jrk, "WGT", jrk, "QTY", jrk, "InPallet", jrk, "NETWGT", jrk, "Qty", jrk, "LOT", jrk, "LPN", jrk, "HU_NUMBER" & vbCrLf & vbCrLf

Do While Not rs.EOF

Print #1, rs!STORERKEY, jrk, rs!SKU, jrk, rs!MATERIAL, rs!LOCATION, jrk, rs!LOCATIONFLAG, jrk, rs!Status, jrk, rs!STDNETWGT, jrk, rs!Qty, jrk, rs!InPallet, jrk, rs!STDNETWGT, jrk, rs!Qty, jrk, rs!LOT, jrk, rs!LPN, jrk, rs!HU_number & vbCrLf

rs.MoveNext

Loop

rs.Close

Close #1



MsgBox "report sudah jadi, buka di D:\tes\report_giv.txt", vbOKOnly

End Sub






Spoiler for code buat kirim emailnya:







Quote:





Private Sub Command1_Click()

Dim ctl As Control

Dim body As String



body = "This message was sent by System, no need to reply, and please refer to the attachment report"





MAPISession1.SignOn

MAPISession1.DownLoadMail = False

DoEvents



MAPIMessage1.SessionID = MAPISession1.SessionID

MAPIMessage1.Compose

MAPIMessage2.SessionID = MAPISession1.SessionID

MAPIMessage2.Compose



MAPIMessage1.RecipAddress = "[email protected]"

MAPIMessage2.RecipAddress = "[email protected]"

MAPIMessage1.ResolveName

MAPIMessage2.ResolveName



MAPIMessage1.MsgSubject = "Givaudan Report_Location_Detail"



MAPIMessage1.MsgNoteText = body



MAPIMessage1.AttachmentPathName = "D:\tes\report_giv.txt"



MAPIMessage1.Send False







MAPIMessage2.MsgSubject = "Givaudan Report_Location_Detail"



MAPIMessage2.MsgNoteText = body



MAPIMessage2.AttachmentPathName = "D:\tes\report_giv.txt"



MAPIMessage2.Send False



MAPISession1.SignOff









MsgBox "The message has been sent...", vbInformation, "VbotEmail By Viks"

Exit Sub



End Sub















thx ya gan kalo bisa bantu....