0

メールを転送し、自分のメッセージを含めるための次のコードがあります。

Private Sub Items_ItemAdd(ByVal item As Object)
Dim filenum As Integer
Dim current_number As String

filenum = FreeFile()
Open "G:\Infrastructure Services\Engineering Services\Hazard Report Number.txt" For Input As #filenum
While Not EOF(filenum)
Line Input #filenum, current_number

Wend


If item.Class = olMail Then
    If Left$(item.Subject, 29) = "Hazard Identification Report" Then
        Dim Msg As Outlook.MailItem
        Dim NewForward As Outlook.MailItem
        Dim myFolder As Outlook.MAPIFolder
        Dim olApp As Outlook.Application
        Dim olNS As Outlook.NameSpace

        Set Msg = item
        Set NewForward = Msg.Forward
        Set olApp = Outlook.Application
        Set olNS = olApp.GetNamespace("MAPI")

        strSender = ""
strsenderName = Msg.SenderEmailAddress





If strsenderName = "EX" Then
  Set objSender = itm.Sender
  If Not (objSender Is Nothing) Then
    Set objExchUser = Sender.GetExchangeUser()
    If Not (objExchUser Is Nothing) Then
      strSender = objExchUser.PrimarySmtpAddress
    End If
  End If
Else
  strSender = strsenderName
End If



        With NewForward
            .Subject = "Hazard report reciept number:"
            .To = strSender
            .HTMLBody = "TYhank you for your email"
            .Send
        End With
        End If
    End If

ExitProc:
    Set NewForward = Nothing
    Set Msg = Nothing
    Set olApp = Nothing
    Set olNS = Nothing


End Sub

テキスト ファイルから値を読みましたが、問題ありません。問題は、テキスト ファイルから値を削除し、値 +1 をテキスト ファイルに出力する方法です。

また、これは、元の添付ファイルとメッセージ (写真といくつかの GPS 座標) を含むメッセージを送信者に転送することを意図していますが、何らかの理由でそうではなく、理由がわかりません.

体に何か提案はありますか？

4

1 に答える 1

0

私はあなたの2番目の問題が何であるかをよく理解していません（「しかし、何らかの理由ではなく、理由がわかりません」は完全なエラーの説明ではありません）。

ただし、txt ファイルを新しい値に置き換えるには、次のようにします。

 Call textfile_replace(Value + 1)

そして、これはあなたが必要とするコードです:

Sub textfile_replace(mytext As String)
  On Error GoTo Fehler
  Dim Datei As String
  Dim Fnr As Long

    Datei = "c:\mytest.txt"
    Fnr = FreeFile
    Open Datei For Output As Fnr
Print #Fnr, mytext
    Close Fnr
    Exit Sub

Fehler:
    MsgBox "error" & Err.Number & " " & Err.Description
End Sub

メールの送信でどのような問題が発生したかについてさらに情報を送信していただければ、その点についてもお手伝いします。

マックス

于 2013-11-15T22:34:59.227 に答える