-1
VBAスクリプトを使用して電子メールの本文を削除すると、電子メールの90%が削除されましたが、最後の "Inquiry"エラー私は修正することはできません。これはメール本文です。電子メール本文を削除するとVBA Outlookのエラーが発生する
Ref: 1993
Business Headline: bla bka
Name: A Name
Email: [email protected]
Tel: 0777777777
Address Line: 123
Address Line 2: someroad
Town: sometown
County: lancashire
Postcode: APOS TCDE
Enquiry:
Please send me more information about this business. Regards, Gary.
問題はお問い合わせを見つけようとしているときに郵便番号に問題があります。私のコードでは、Inquiryの位置を見つけるようですが、整数に変数を代入しません。私が何を意味するかを見るためにスクリーンショットを見てください。
Dim pstcodee As Integer
pstcodee = InStr(1, b4, "Postcode: ")
Dim enqui As Integer
enqui = InStr(1, b4, "Enquiry:")
Dim pstenquire As String
pstenquire = Mid(b4, pstcodee, enqui - pstcodee)
Dim bup2222() As String
bup2222 = Split(pstenquire, ":")
postcode = bup2222(1)
コードがOKに動作し、抽出物::_ "APOS TCDE" _
The variable is just staying at 0
この
finds correct positon
は、郵便番号ストリッピングコードです。あなたは、正確な問題が何であるかをより詳細に記述しなければなりません。スクリーンショットには、現在実行されている行(デバッグ中に黄色で表示)が表示されません。 – BrakNicku