從文本文件中讀取值，轉發電子郵件

Question

我有以下代碼是爲了轉發電子郵件，幷包含我自己的消息。

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座標），但它不是由於某種原因，我不明白爲什麼。

確實有任何建議嗎？

Answer 1

我不太明白你的第二個問題是什麼（「但不是因爲某些原因，我不明白爲什麼」不是完美的錯誤描述）。

但對於一個新的值使用這種更換一個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 

如果您發送您有更多的信息是什麼問題發送郵件我也會盡力幫助你。

最大