Newsgroup: it.comp.lang.visual-basic
Titolo: VB, FAX e MAPI

Ciao a tutti.
Ho installato "Exchange 4 per Windows 95" (ho anche scaricato l'SP4 dall'FTP
di M$) sotto Win98SE.
Ho configurato i servizi di Internet Mail e Microsoft Fax
Con VB6SP3 ho scritto un programma che scarica la posta da un server POP3
(con il servizio Internet Mail) e che deve inviare quanto ricevuto come FAX
al numero specificato nell'oggetto.
Funziona.
Ma se nel messaggio di posta elettronica c'e' un allegato (DOC, RTF...),
quando vado ad impostare l'attachment al nuovo messaggio fax NON TROVO il
filename dell'allegato (MAPImessage.AttachmentName = "") e il pathname
dell'allegato (che c'e'!!) e' MAPImessage.AttachmentPathName =
"c:\windows\temp\mai" e basta. Senza estensione.
Ora, se io prendo l'iniziativa (!) ed allego questo file c:\windows\temp\mai
al mio fax e forzo 'AttachmentName = "documento.rtf" ed invio il fax,
funziona tutto correttamente.
Il problema e' che io NON SO che attachment arriva (potrebbe essere
qualunque cosa: un documento, una immagine, un foglio elettronico...)
Ho girato in lungo ed in largo il sito di M$, i newsgroup, ho fatto ricerche
..... niente !!!!
Questo e' il pezzo di codice che scarica la posta ed invia il fax (e'
stupidissimo !!!!)
----------------------------------------------------
Su un form, inserire:
un componente MAPISession e chiamarlo 'sess'
due componenti MAPIMessage e chiamarli 'mess' e 'fax'
un CommandButton
----------------------------------------------------
Private Sub Command1_Click()
    Dim i As Integer
    Dim filename As String
    Dim Messaggio As String
    Dim temp  As Variant
    Dim mSubj As String
    Dim mFrom As String
    'set download new mail at logon
    sess.DownLoadMail = True
    'first login into service
    sess.LogonUI = False
    sess.UserName = "user_account_name"
    sess.SignOn
    mess.SessionID = sess.SessionID
    'get new messages into component
    mess.FetchUnreadOnly = True
    mess.FetchSorted = True
    mess.Fetch
    'if new messages
    If (mess.MsgCount > 0) Then
        'per ogni messaggio, lo invia via fax
        For i = 0 To mess.MsgCount - 1
            'imposta il messaggio
            mess.MsgIndex = i
            'legge il corpo del messaggio
            Messaggio = mess.MsgNoteText
            'cra un nuovo messaggio fax
            fax.SessionID = sess.SessionID
            fax.Compose
            'legge il mittente del messaggio e lo setta come mittente del
fax
            'fax.MsgOrigDisplayName = mess.MsgOrigDisplayName
            'legge il numero di fax del destinatario
            'fax.RecipDisplayName = "[FAX:" & mess.MsgSubject & "@" &
mess.MsgSubject & "]"
            fax.RecipDisplayName = "[FAX:" & mess.MsgSubject & "]"
            fax.MsgSubject = "FAX da " & mess.MsgOrigDisplayName
            'invia come fax L'UNICO ATTACHMENT !!!
            If (mess.AttachmentCount > 0) Then
                'imposta il corpo del messaggio
                'IMPORTANTISSIMO: uno spazio per ogni attachment allegato
                fax.MsgNoteText = " " & vbCrLf & vbCrLf
                mess.AttachmentIndex = 0
                'lo imposta come attachment del fax
                filename = mess.AttachmentName
                fax.AttachmentName = filename
                fax.AttachmentPathName = mess.AttachmentPathName
                fax.AttachmentPosition = i
                fax.AttachmentType = 0
                'ed invia il messaggio
                fax.Send False
            End If
        Next i
    End If
    sess.SignOff
End Sub
-------------------------------------------------------------------
C'e' qualcuno che ha avuto problemi simili ??
Grazie.
--
Fab, kay...@genie.italy (change italy with it to answer via email!!)

 "c:\windows\temp\mai" e basta. Senza estensione.
[cut]
non č che vuole il percorso racchiuso fra virgolette?
Faber

 non č che vuole il percorso racchiuso fra virgolette?
?? cosa vuoi dire ??
Io leggo la proprieta' del componente per sapere il pathname completo del
messaggio, e trovo c:\windows\temp\mai .
Non capisco cosa intendi.
Cia'


 Non capisco cosa intendi.
scusami, hai ragione, si vede che avevo capito male il tuo post
precedente
Faber