投稿日	： 2002/11/21(Thu) 11:56
投稿者	： スナフキン
ＵＲＬ	：
タイトル	： どなたか教えて下さい！

こんにちは。スナフキンと申します。スナフキンですが女の子です。
どなたか教えて下さい！

VBでやりたい事は。。。

�@あるパラメータにより仕様書をどのメーカーに発注するか判別。
　(メールにて発注します。パラメーターを入力するフォームは作成済です。)
　　　　　　↓
�A既存のExcel仕様書原紙をOpenし、仕様書を作成。保存。
　　　　　　↓
�B�@で判別したメーカーに作成したファイルを添付してメールを送付。
(メール送信するサンプルは頂きました。サンプルはファイル添付する機能は有りません。)

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()

    With sckInternetMail
        
        If .State <> sckConnected And .State <> sckOpen Then
            .Connect "_____", 25            'メールサーバ指定
            Do While .State <> sckConnected
                DoEvents
            Loop
        End If
        
        Dim strMessage As String
        
        strMessage = "_____" & vbCrLf  'Helo　メールサーバ記述
        .SendData strMessage
        WaitResponse
        
        strMessage = "MAIL FROM:<" & JisConv(txtFrom) & ">" & vbCrL
        
        .SendData strMessage
        WaitResponse
        
        strMessage = "RCPT TO: <" & JisConv(txtTo) & ">" & vbCrLf
        .SendData strMessage
        WaitResponse
        
        strMessage = "DATA" & vbCrLf
        .SendData strMessage
        WaitResponse
        
        strMessage = "SUBJECT: " & JisConv(txtSub) & vbCrLf  'タイトル（題目）
        strMessage = strMessage & vbCrLf
        strMessage = strMessage & JisConv(txtCom) & vbCrLf   '内容
        strMessage = strMessage & "." & vbCrLf
        .SendData strMessage
        WaitResponse
        
        .Close
        Do While .State <> sckClosed
            DoEvents
        Loop
    End With

Exit Sub

End Sub

Private Sub WaitResponse()
Dim strResponse As String
    strResponse = ""
    Do While strResponse = ""
        sckInternetMail.GetData strResponse
        DoEvents
    Loop
End Sub

Private Sub GetReponse()
Dim strTemp As String
    
    strTemp = ""
    Do While strTemp = ""
        sckInternetMail.GetData strTemp
        DoEvents
    Loop
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
とこんな感じです。


こんな事は出来ますか!?

どなたか教えて頂ける方、いらっしゃいませんか!?
どうぞ。。。宜しくお願い致します。(ペコリ)

★ - どなたか教えて下さい！ - スナフキン 11/21-11:56No.1474
• Re: どなたか教えて下さい！ - 魔界の仮面弁士 11/21-12:50 No.1475
  • Re^2: どなたか教えて下さい！ - スナフキン 11/21-13:50 No.1477
    • 添付ファイルの送信方法 - 魔界の仮面弁士 11/21-14:13 No.1478
      • Re: 添付ファイルの送信方法 - スナフキン 11/22-09:24 No.1490