Linuxmania
20th November 2011, 11:07 AM
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....:ceriwislove:
</div>
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....:ceriwislove:
</div>