BASP21を使ってファイル添付メールを送信したい
basp21 pro（http://www.b21soft.co.jp/basp21/）でメールにファイル添付したいのですが
エクセルファイルを添付したいのですが、SendMailで型が一致しませんというエラーが出ます。
教えてください＞＜；
ファイル名に指定しているセルCells(i, 28) は =AC3&"\"&AD3 の様に場所を指定しています
（AD3 部分が変わっていくので。ここを変えた方がいいでしょうか？）
内容は一部省略しておりますが ↓です
Sub SendMailMacro1()
Dim szServer, szTo, szFrom, szSubj, szBody, ret, szLogfile, z As String
Dim szFile As Variant
Dim i, j As Long
Dim fs, a As Object
On Error GoTo Err_Handler
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Program Files\log.txt", True)
szServer = Worksheets("maildata").Cells(10, 2)
szFrom = Worksheets("maildata").Cells(8, 2)
With Worksheets("senddata")
i = 2
Do While .Cells(i, 1) <> "END"
If .Cells(i, 1) = "1" Then
If .Cells(i, 3) = "1" Then
szTo = .Cells(i, 5) & vbTab & "bcc" & vbTab & .Cells(1, 36)
End If
szBody = .Cells(i, 26)
szSubj = .Cells(i, 25)
szFile = .Cells(i, 28)
ret = SendMail(szServer, szTo, szFrom, szSubj, szBody, szFile)
If Len(ret) <> 0 Then
a.WriteLine (Date & " " & Time & " " & ret & "－" & szTo & "－" & szBody)
MsgBox "エラー ・・・ " & i & "行目 ( " & ret & ")"
.Cells(i, 1) = "エラー"
Else
.Cells(i, 1) = "完了"
End If
End If
i = i + 1
Loop
End With
MsgBox "終了"
GoTo Exit_sub
Err_Handler:
MsgBox Err.Description, vbCritical, "Error"
GoTo Exit_sub
Exit_sub:
a.Close
End Sub
宜しくお願い致します＜（＿ ＿）＞
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
お礼
utf-8で送ってみたのですがoutlookexpress以外では件名がうまく表示できませんでした。 VCから送るのを諦めPHPをコールしてＰＨＰから送る方法で解決しました。 ありがとうございました。