初心者です。
まいと~くCOLORFAXでサンプルファイルを使用していたのが、
別のパソコンで使えなくて困っています。
OS・Excel2003で同じですが、FAX6や8PROでは、
A1に入力した送信先に送信出来ません。
何処を直せば良いか教えて頂きたくお願い致します。
Sub FAX送信()
If Cells(1, 1) = 0 Then
MsgBox ("A1にダイアル先")
Exit Sub
End If
Set MfRemote1 = CreateObject("MFREMOTE.MfRemoteCtrl.1")
'「FAX」の起動
intResult = MfRemote1.Connect
'送信先設定
intResult = MfRemote1.SendTo(Cells(1, ), "dummy:name", "dummy:title", "dummy:Company") '送付状無
blnResult = MfRemote1.CoverPage("")
'ドライバ名取得
strNewPrinter = MfRemote1.GetPrinterName
strNewPort = MfRemote1.GetPrinterPort
strOldPrinter = Application.ActivePrinter
'2000のプリンタ設定方法は他のバージョンとは異なる
If Application.Version = "9.0" And Application.Build = "2823" Then 'Excel 2000初期バージョン(SRなし)
strNewPrinter = strNewPort & " の " & strNewPrinterElse
strNewPrinter = strNewPrinter & " on " & strNewPort 'Excel97、Excel2000SR1
End If
Application.ActivePrinter = strNewPrinter
On Error Resume Next
'印刷
Worksheets("明細表").PrintOut
Application.ActivePrinter = strOldPrinter
MfRemote1.DisConnect
Rem For intCount = 0 To lstSendTo.ListCount - 1
Rem lstSendTo.Selected(intCount) = False
Rem Next intCountEnd Sub
End Sub

このQ&Aに関連する最新のQ&A

A 回答 (3件)

> また、オリジナルですら、現在の環境では送信できません。


オリジナルが通信できることを確認しないと問題点が特定できませんね。

通信できていたころと、現在の環境の違いを整理してみてください。
まさか、電話回線に接続していない、ということは?

この回答への補足

返事が遅くなり、申し訳ありません。
ファイルが使えるパソコンとそうでないパソコンに距離がありまして・・・m(__)m
電話回線は大丈夫です。(笑)

bin-chanさんのパソコンでは
http://www.intercom.co.jp/support/mytalk/7/dde/m …
にあるサンプルは使えますか?

OSはどちらもXP
エクセルは2003
一般電話回線です。

ただ、使えるパソコンでは、ネットワークでSOHOクライアントとして使っています。

補足日時:2006/07/08 16:10
    • good
    • 0

'送信先設定


intResult = MfRemote1.SendTo(Cells(1, ), "dummy:name",



'送信先設定
intResult = MfRemote1.SendTo(Cells(1, 1), "dummy:name",

ですか?

この回答への補足

ご指摘の通りです。m(__)m
ユーザーフォームからの送信先選択でした。
また、オリジナルですら、現在の環境では送信できません。
PrivateSubcmdSendFax_Click()
DimintCountAsInteger
DimintResultAsInteger
DimintSelectedAsInteger
DimstrNewPrinterAsString
DimstrNewPortAsString
DimstrOldPrinterAsString
DimblnResultAsBoolean
ConstconName=1'氏名
ConstconFurigana=2'フリガナ
ConstconTitle=3'敬称
ConstconCompany=4'会社名
ConstconSection=5'所属
ConstconPosition=6'役職
ConstconTelNumber=7'電話
ConstconFAXNumber=8'FAX
'選択されているか確認
intSelected=0
ForintCount=0TolstSendTo.ListCount-1
IflstSendTo.Selected(intCount)=TrueThen
'選択されていた
intSelected=intSelected+1
EndIf
NextintCount
IfintSelected=0Then
'一つも選択されていない
MsgBox"送信先を選択して下さい.",vbExclamation
ExitSub
Else
'送信確認
intResult=MsgBox(intSelected&"件の相手先に送信してもよろしいですか?",vbYesNo+vbQuestion)
IfintResult=vbNoThen
ExitSub
EndIf
EndIf

'「まいと~くFAX」の起動
intResult=MfRemote1.Connect
'念のため、送信先データのクリア
intResult=MfRemote1.ClearSendFax
'送信先設定
ForintCount=0TolstSendTo.ListCount-1
IflstSendTo.Selected(intCount)=TrueThen
'選択されていた
WithWorksheets("送信先データ")
intResult=MfRemote1.SendTo(_
.Cells(intCount+2,conFAXNumber),_
.Cells(intCount+2,conName),_
.Cells(intCount+2,conTitle),_
.Cells(intCount+2,conCompany),_
.Cells(intCount+2,conSection),_
.Cells(intCount+2,conPosition),_
.Cells(intCount+2,conTelNumber),_
.Cells(intCount+2,conFurigana))
EndWith
EndIf
NextintCount
'送付状は無し
blnResult=MfRemote1.CoverPage("")
'プリンタドライバ名を取得
strNewPrinter=MfRemote1.GetPrinterName
strNewPort=MfRemote1.GetPrinterPort
strOldPrinter=Application.ActivePrinter
'Excel2000のプリンタ設定方法は他のExcelのバージョンとは異なります
IfApplication.Version="9.0"AndApplication.Build="2823"Then'Excel2000初期バージョン(SRなし)
strNewPrinter=strNewPort&"の"&strNewPrinter
Else
strNewPrinter=strNewPrinter&"on"&strNewPort'Excel97、Excel2000SR1
EndIf
'以下Excel2000SR2非対応ソース
'IfEnviron("OS")="Windows_NT"Then'WinNTの場合
'ForExcel2000
'IfApplication.Version="9.0"Then'Excel2000
'strNewPrinter="NULLのMytalkFAX"
'Else
'strNewPrinter="MytalkFAXonNULL"
'EndIf
'Else'Win95,98の場合
'ForExcel2000
'IfApplication.Version="9.0"Then'Excel2000
'strNewPrinter="COM1:のMytalkFAX"
'Else
'strNewPrinter="MytalkFAXonCOM1:"
'EndIf
'EndIf
Application.ActivePrinter=strNewPrinter
OnErrorResumeNext
'印刷
Worksheets("明細表").PrintOut
Application.ActivePrinter=strOldPrinter
MfRemote1.DisConnect
ForintCount=0TolstSendTo.ListCount-1
lstSendTo.Selected(intCount)=False
NextintCount
frmSendTo.Hide
EndSub

補足日時:2006/07/04 10:29
    • good
    • 0

> A1に入力した送信先に送信出来ません。


> 何処を直せば良いか
どこで、どのように送れないのか?を詳細に教えてください。
・「A1にダイアル先」と表示されて終わってしまう。
・何も起こらないが送付されない。
・途中でエラーメッセージが表示され、止まってしまう。
など。

「ステップ イン」で1行ずつ実行させることができますか?
メニューのツール>マクロ>マクロ>ステップ イン です。

キーボード奥の方の[F8]キーで1行ずつ実行させることができます。

この回答への補足

補足要求有難うございます。
状態は
まいと~くFAXが起動して、エラーメッセージは出ません。
そこからアドレスは選べます。
「ステップ イン」で実行しても同じです。
この、アドレスから選ぶ作業をわずらわしく思い、なんとか
セルの値を取得して送信できないかとサンプルファイルに
つけ足して使って来ました。
ご指導宜しくお願いいたします。m(__)m

補足日時:2006/07/01 16:41
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QFAX自動送信について

Access97から、帳票イメージをそのままFAX送信する
仕組みを作成しようとしているのですが、どういう
FAXソフトを使って、どんな機能を使えばできるのかが
よく分かりません。
実現したい機能としては、出力画面よりなにか条件を
いれてボタンを押すとその条件で帳票イメージを
作成し、(相手先もマスタから取得し)FAXする、という
ものです。
印刷先をFAXにして、手動でFAXソフトで送信、という
ことが可能なのはわかっているのですが、アプリケーションに
組み込む場合の方法がよくわかりません。
ちなみにFAXサーバ1台、クライアントは10台ぐらいを考えています。
すでにこういう機能を実現されている方や、方法をご存知
のかたがいらっしゃいましたら教えていただければありがたいです。
(オススメのFAXソフトなんかもあるとうれしいです)

Aベストアンサー

>ネットワーク上のFAXサーバとして
それは プログラミング次第です。

1.サーバー側で待機プログラムを起動
2.ローカル側がサーバーの待機中プログラムに、送信したい画像保存場所、電話番号を送信
3.受信したサーバー側で、受け取った情報を元に送信

以上の手順で、FAXサーバプログラムを作成できると思います。

サバクラ間の通信はWINSOCKで、出来ると思います。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=155606

Q社内PCにてネットワークの見れないPCがある

どうも。 お付き合いできる方が居られれば、知恵をお貸しください。
社内PCでネットワークが見れないPCが何台かあります。
しかも、そのPCごとに内容は違いAのPCはBが見れない…しかし、逆からは見れるとか。
CのPCは、Dが見れない…Cも見れないとか。
セキュリティソフトのファイヤーウォールは切ったり、Win内のファイヤーウォールは切ってもダメです。
で、中には『PCを検索』でIPで探して見ると共有が見れたりするPCもあります。
更には、Adminだとダメでもうひとつアカウント作ってそれでやると見れるとか…(・д・;)
もはや、意味が分かりません。
OSが違えば(XP→98:98→2000)また違う設定が要るんでしょうが、XP→XPでも見れないやつがあるのが解せません。
ちなみに、PINGは飛びます。
ネット、メールも出来ます。
が、特定のPCが見れないんです。
何か原因が考えられるのであれば、是非知恵をお貸しください。
長文、申し訳ありませんでした。

Aベストアンサー

これは、マスタブラウザになるべきマシンが固定していない環境で起こる現象です。
下のURLのNo.2net_lander(私)の回答を参考にしてください。
環境は、少し異なると思いますので、適宜読み替えてください。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1127123

Qまいと~くFAXで送信したい

現在使用しているパソコンはWindows7 32bitです。
WORDやEXCELなどはoffice2010で、使用しているまいと~くFAXは【2001】です。
一昨年、パソコンをWinXPからWin7に替えました。
XPを使用していたときは、WORD,EXCEL,CADなどソフト問わずに印刷(送信)していましたが、
Win7になって、ソフトはインストール出来たのですが、プリンター一覧には入らないので、
印刷(送信)出来ません。
まいと~くFAX立ち上げてから、送付状のみの送信は出来るのですが、EXCEL等から印刷をするようにFAX送信が出来ないのです。
モデムはUSBの56Kアナログモデムを使用していてモデムには問題はありません。

プリンター一覧に入れる方法を教えて下さい。
宜しくお願い致します。

Aベストアンサー

"まいと~く FAX 2001"はWindows7に対応してないのでしょうがないですよ

http://www.intercom.co.jp/support/mytalk/2001/environment.html

工夫して7で運用する方法もあるのかもしれないけど、それはまいと~く2001を使ってる人に任せるとして
Windows7には標準でFAXソフトついてますよ そちらに乗り換えてはいかがですか

http://windows.microsoft.com/ja-JP/windows7/products/features/windows-fax-and-scan

ボクはVistaで使ってますが タダの割には使えますよ(^_^;)

Qソースから参照しているOCXの一覧を確認する方法

Visual Basic 6.0のプログラムを多数担当することになったのですが、ドッキュメントはなく、ソースだけがたよりの状態です。
サードパーティ製のOCXを使っているようなのですが、ソースから、利用しているOCXやDLL、ActiveXなどの外部コンポーネントを一覧する良い方法を教えて下さい。

Aベストアンサー

メモ帳などのテキストエディタでプロジェクトの VBPファイルを開いてみてください
ファイルの冒頭に行頭がObject= と Reference= の組が参照設定の記述です

Object=の行の ;以降にOCXなどの名称
Reference=の行の最後の #以降に 参照設定で表示される文字列
といった具合になっているようです

Reference=の行中には ファイルパスも記載されています

QSetup.EXE作成

エキスパートの皆さん、知恵を貸してください。

現在、VB.netにてソフトを開発しているのですが、
そのソフトで、Access2003とまいとーくFAXver9を使用しています。

今度、Setup.EXEを作成するのですが、上記2つのソフトもSetup.EXEの
中に組み込みたいのです。

しかし、いろいろ探してみたのですが、どうすればいいのか方法が見つかりませんでした。

このままでは、客先個々にこちらで開発したソフトをインストールするときに、上記の2つのソフトを買ってもらわなければいけなくなってしまいます。

なるべく、このような状況は回避したいのです。

エキスパートの皆さん、どうすれば組み込めるのかを教えていただけませんか?

わかりにくいかも知れませんが、宜しく御願いいたします。

Aベストアンサー

・Microsoft Office Access 2003
via http://d.hatena.ne.jp/aspx/20080221/1203562105
SITE: Access 2003 ランタイムを入手して展開する - Access - Microsoft Office Online
http://office.microsoft.com/ja-jp/access/HA011208861041.aspx
SITE: ダウンロードの詳細 : Access 2007 ダウンロード: Access Runtime
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=d9ae78d9-9dc6-4b38-9fa6-2c745a175aed
対象マシンにAccessが入っていない場合,ランタイムを導入する必要があります。
上記の方法でAccessのランタイムを入手してください。
また,使うのが.mdbのデータベース部分だけであれば,MDACの導入だけで済みます。

・まいと~く FAX 9 Pro
SITE: 購入前のQ&A その他 | パソコンFAXソフト まいと~く FAX 9 Pro - インターコム
http://www.intercom.co.jp/mytalkfax/qa/qa_others.html
これを読む限り,まいと~く FAX 9 Proの購入およびOCXライセンスの購入が必須のようです。
詳しくは販売会社であるインターコムさんの方へインシデント消費してでも問い合わせるのがよいでしょう。

・Microsoft Office Access 2003
via http://d.hatena.ne.jp/aspx/20080221/1203562105
SITE: Access 2003 ランタイムを入手して展開する - Access - Microsoft Office Online
http://office.microsoft.com/ja-jp/access/HA011208861041.aspx
SITE: ダウンロードの詳細 : Access 2007 ダウンロード: Access Runtime
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=d9ae78d9-9dc6-4b38-9fa6-2c745a175aed
対象マシンにAccessが入っていない場合,ランタイムを導入する必要があり...続きを読む


人気Q&Aランキング