我是透過winsock元件發mail
但是該如何在信中附加 .doc的檔案呢?
煩請各位高手賜教....由衷感激
但是該如何在信中附加 .doc的檔案呢?
煩請各位高手賜教....由衷感激
文章標籤
全站熱搜
- 2月 25 週三 200416:12
有關mail附加檔案問題(編號：33141)
小吳 VBQA 程式設計討論
提供小吳 VBQA 包含VB6,VB 2003,VB 2005,VB 2008,VB 2010,VB.NET,Visual Studio,Visual Basic,程式設計,C#,ASP.NET , Windows From , SQL Server , Crystal Report,VBA,HTML,網頁設計,微軟,98,XP,Lotus Notes,KB .
部落格全站分類：數位生活
文章分類
- Timer (335)
- ODBC (388)
- Print (641)
- DragDrop (9)
- MSComm (336)
- Picture (447)
- ADODC (752)
- 公因數 (20)
- Label (292)
- Datareport (778)
- 封裝 (451)
- RichTextBox (165)
- webcam (5)
- MSFlexGrid (135)
- 進位 (121)
- Office (5)
- 輸入法 (73)
- Datagrid (422)
- Notes (10)
- Mapi (34)
- Outlook (74)
- Run-Time Error (29)
- Jmail (6)
- MP3 (77)
- 信用卡 (8)
- E-Mail (119)
- Base64 (8)
- VBScript (24)
- XML (39)
- FlexGrid (21)
- DIR (41)
- Word (104)
- 文字檔 (376)
- Big5 (18)
- MSN (23)
- MsChart (74)
- DataGrid (33)
- 壓縮 (40)
- 字串 (480)
- MSDN (87)
- ASP (521)
- 陣列 (210)
- From (2,327)
- Shape (71)
- 資源檔 (26)
- Treeview (55)
- 心冷熱情熄 (2)
- VB.NET (51)
- 小吳 (51)
- MySQL (5)
- DirListBox (5)
- Flash (7)
- FileListBox (23)
- 網路安全 (5)
- Web services (1)
- ADODB (35)
- Line (15)
- HTML (34)
- Win32 (1)
- 繪圖 (5)
- ASCII (70)
- COM Port (2)
- ComboBox (11)
- IE (267)
- FoxPro (1)
- ListView (88)
- ActiveX (79)
- PictureBox (185)
- Shell (118)
- Image (60)
- Error (63)
- ADO (642)
- 亂碼 (23)
- IIS (11)
- RS232 (158)
- USB (72)
- WebBrowser (5)
- 滑鼠 (241)
- 鍵盤 (59)
- 資料庫 (1,304)
- Unicode (8)
- Recordset (36)
- Winsock (511)
- 安裝 (5)
- DLL (615)
- OCX (195)
- HTML (74)
- TextBox (1,057)
- MDI (152)
- API (445)
- 倚天 (2)
- Crystal Report (710)
- ListBox (115)
- 列印 (525)
- SQL (1,400)
- 程式設計 (12)
- VB (5,631)
- Access (285)
- VBA (16)
- Excel (189)
- 未分類文章 (1)
sub command1 '夾檔發送 Winsock1.SendData "Content-Type: text/plain;" & vbCrLf stop_d Winsock1.SendData " Name = c:\abc.doc" & vbCrLf stop_d Winsock1.SendData "Content-Transfer-Encoding: base64" & vbCrLf 'Winsock1.SendData "Content -Transfer - Encoding: quoted -printable" & vbCrLf stop_d Winsock1.SendData "Content-Disposition: attachment;" & vbCrLf stop_d Winsock1.SendData " FileName = c:\abc.doc " & vbCrLf & vbCrLf stop_d Call SendFiles Winsock1.SendData "------_=_NextPart_000_01BEDF68.EA879720--" & vbCrLf stop_d end sub Private Sub SendFiles() On Error Resume Next Dim byteCode(2) As Byte Dim bitNewCode(3) As Byte Dim bytePut As Byte Dim longTotCode As Long Dim long64 As Long Dim long256 As Long Dim i As Integer Dim J As Integer Dim long128 As Long long64 = 64 long256 = 256 long128 = 0 Open txtattfile For Binary Access Read As #1 Do While Not EOF(1) i = 0 byteCode(0) = 0 byteCode(1) = 0 byteCode(2) = 0 Do While i ＜= 2 And Not EOF(1) Get #1, , byteCode(i) i = i + 1 DoEvents Loop longTotCode = 0 If i ＞ 0 Then longTotCode = longTotCode + byteCode(0) * long256 * long256 If i ＞ 1 Then longTotCode = longTotCode + byteCode(1) * long256 If i ＞ 2 Then longTotCode = longTotCode + byteCode(2) bitNewCode(0) = longTotCode \ long64 * long64 * long64 longTotCode = longTotCode - (long64 * long64 * long64 * bitNewCode(0)) bitNewCode(1) = longTotCode \ (long64 * long64) longTotCode = longTotCode - (bitNewCode(1) * long64 * long64) bitNewCode(2) = longTotCode \ long64 longTotCode = longTotCode - (bitNewCode(2) * long64) bitNewCode(3) = longTotCode For J = 0 To 3 bytePut = Asc(Mid$(Base64, bitNewCode(J) + 1, 1)) If i = 2 And J = 2 Then Exit For If i = 1 And J = 1 Then Exit For Winsock1.SendData Chr$(bytePut) long128 = long128 + 1 If long128 ＞= 76 Then long128 = 0 Winsock1.SendData vbCrLf DoEvents End If Next J bytePut = Asc("=") If i = 2 Then Winsock1.SendData Chr$(bytePut) Winsock1.SendData Chr$(bytePut) ElseIf i = 1 Then Winsock1.SendData Chr$(bytePut) End If DoEvents Loop Close #1 Winsock1.SendData vbCrLf & vbCrLf End Sub