宛先の指定は 「.FaxNumber = "042-585-8501"」ではなく、「.Recipients.Add "042-585-8501", "テスト送付先"」を使います(複数指定すれば同報送信)。 また、送信に使うメソッドも Send メソッドではありません。 Body プロパティに文書ファイルを指定した場合は、ConnectedSubmit メソッドも...
ScreenUpdating = False '最初に新しい宛先ワークブックを作成する Set wbDestination = Workbooks.Add '新しいワークブックの名前を取得し、以下のループからそれを除外する strDestName = wbDestination.Name '次に、データを取得するために開いている各ワークブックをループする 'ただし新しい...