供应商管理之快递管理

Kelidai

此贴可以作为学习office联合办公的有益尝试！别看它小，基本上excel,word,access,outlook都用上了。
认真看下，必有收获。

1.本小系统可以自成体系，也可以嵌入采购管理系统。
http://club.excelhome.net/thread-702471-1-1.html
2.实现快递的打印，保存，发送提醒，签收确认的自动更新
3.运用VBA操控excel+outlook+access及网页的自动填表。

使用须知：
请更正程序的邮件地址：
vDoc.All("mail1").Value = "xxx@XXX.com" 请改为你的邮箱地址（此功能根据outlook邮件系统开发，其它系统请自己设计）
vDoc.All("mail3").Value = "XXX@126.com" 也请一起更改，此邮箱可以删除。
outlook要加入如下代码：
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim vMail As Object
    Dim rs1, RS2, db1
    Dim i, j As Integer
    Dim countd As Integer
    Dim arr() As String
     Dim Billno As String
    On Error GoTo 1000
   Set vMail = Application.Session.GetItemFromID(EntryIDCollection)
   If LCase(vMail.SenderEmailAddress) <> "nos@sf-express.com.cn" Then Exit Sub
    Billno = Left(vMail.Subject, 12)
   arr = Split(vMail.Body, Chr(9))
   For i = 0 To UBound(arr()) - 1
   If VBA.InStr(arr(i), Billno) Then
   countd = i
   Exit For
   End If
   Next
     Set db1 = OpenDatabase("D:\供应商\供应商管理表.mdb", False, False, ";pwd=2345")
    Set RS2 = db1.OpenRecordset(Name:="express", Type:=dbOpenDynaset)
    RS2.FindFirst "快递单号='" & Billno & "'"
    With RS2
    .Edit
    .Fields("到件日期").Value = arr(countd + 2)
    .Fields("状态").Value = arr(countd + 3)
    .Fields("更新日期").Value = VBA.Date$()
    .Update
    End With
    db1.Close
    Exit Sub
  1000:
MsgBox Err.Description
End Sub


供应商管理表.zip (16.4 KB, 下载次数: 453)

2011-9-24 16:05 上传

点击文件名下载附件
数据库

1298170230

楼主有没有采购方面的供应商管理以及合同管理

Kelidai

1298170230 发表于 2011-9-24 16:07
楼主有没有采购方面的供应商管理以及合同管理

打开我提供的链接就有啊。

Kelidai

这个涉及了网页处理，outlook自动化的帖子竟如次冷清，哎

zhdablo

学习了，真的不怎么好做

kasan

才看到，很不错呢。 {:soso__5663373028670280397_3:}

lskvslgt

楼主V5,好厉害，学习了

rikhgmss

我想学习，能教教我吗

Kelidai

rikhgmss 发表于 2013-3-19 20:48
我想学习，能教教我吗

多看看代码，很快就会了。