Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

Excel e Winfax condivisione Macro??? Opzioni
bestpaul
Inviato: Wednesday, December 26, 2007 7:39:27 AM

Rank: AiutAmico

Iscritto dal : 9/8/2002
Posts: 32
Magari è una sciocchezza o una pazzia ma pongo la domanda perche se giammai ci fosse la possibilità avrei risolto i miei problemi...
Mi chiedevo se questi due programmi possono condividere delle informazioni mediante una macro. In buona sostanza mi chiedo se con una macro posso fare in modo che un numero scritto in una cella di excel possa partire una nuova scheda contatto su winfax.


Qualcuno mi sa dire qualcosa?

Un Saluto ;-)

Sponsor
Inviato: Wednesday, December 26, 2007 7:39:27 AM

 
a10n11
Inviato: Wednesday, December 26, 2007 11:45:11 AM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
premesso che non uso winfax, quello che so è che comunque necessita WinfaxPro Macro 10.02 per le versioni XP. ( non credo che la versione Pro sia freeware)
Un modo per fare interagire i due programmi è spiegato qui:
http://service1.symantec.com/SUPPORT/INTER/winfaxintl.nsf/0/04094413d975439fc1256b29002dfba3?OpenDocument&seg=hm&lg=it&ct=it
In alternativa, visto che in winfax è possibile importare la rubrica di Outlook, potresti pensare di passare i dati di excel in Outlook indi importarli in Winfax.
Una possibile macro (modificata da me ma non mia) potrebbe essere questa: (aggiunge i contatti alla rubrica di outlook. Necessita dell'attivazione del riferimento alla libreria "Microsoft Outlook 9.0 Object Library")

Sub CreateContactsFromExcel()
Const olFolderContacts As Integer = 10
Dim olApplication
Dim olNameSpace
Dim olContactFolder
Dim olContactItem
Set olApplication = CreateObject("Outlook.Application")
Set olNameSpace = olApplication.GetNamespace("MAPI")
Set olContactFolder = olNameSpace.GetDefaultFolder(olFolderContacts)
Set olContactItem = olContactFolder.Items.Add
With olContactItem
.FirstName = Range("a1").Value
.LastName = Range("b1").Value
.HomeTelephoneNumber = Range("c1").Value
.BusinessFaxNumber = Range("d1").Value
.HomeAddressStreet = Range("e1").Value
.HomeAddressCity = Range("f1").Value
.HomeAddressState = Range("g1").Value
.HomeAddressPostalCode = Range("h1").Value
.SelectedMailingAddress = olHome
.Categories = Range("l1").Value
.Email1Address = Range("m1").Value
.Save
End With
Set olContactFolder = Nothing
Set olNameSpace = Nothing
Set olApplication = Nothing
End Sub

saluti
Andrea

bestpaul
Inviato: Wednesday, December 26, 2007 6:07:49 PM

Rank: AiutAmico

Iscritto dal : 9/8/2002
Posts: 32
[quote=a10n11]...Necessita dell'attivazione del riferimento alla libreria "Microsoft Outlook 9.0 Object Library")

...scusa ma come attivo il riferimento alla libreria, mi puoi chiarire questo passaggio?

Grazie
a10n11
Inviato: Wednesday, January 02, 2008 11:40:57 AM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
in ambiente VBA raggiungibile con Alt+F11 dal foglio di lavoro, Menù Strumenti>Riferimenti
cerca "Microsoft Outlook 9.0 Object Library" metti a fianco il segno di spunta e conferma con Ok.
saluti
Andrea

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.