Newsgroup: it.comp.appl.access
Titolo: Creazione ACCOUNTS Outlook 2003

Ciao ragazzi,
dovendo cambiare dominio, mi trovo nella situazione in cui devo cambiare
haim� anche gli "n" accounts di posta sui vari clients (200 circa)...
mentre su webmail tutto � doverosamente e obbligatoriamente da fare a
manina, mi chiedo (visto che � un discorso che non ho mai affrontato
perch� mi ROMPE davvero), c'� qualcuno di voi che conosca un modo per
creare un account di MS OUTLOOK 2000/2003 da codice???? (bada bene, non
Outlook Express, ma MS Outlook 2000 o 2003)... almeno invio un programmino
in giro che fa tutto da s� e chi si � visto si � visto!...
Tnks.
-- 
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perch� un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 in giro che fa tutto da s� e chi si � visto si � visto!...
1 - Gli accounts dove sono? in una tabella di Access?
2 - L'operazione (creazione account di posta Outlook)
     vuoi farla da Access (esportazione) o da Outlook (importazione)?
Bruno
 

 Bruno


 se non erro...bh�)
Dovrai ben creare una tabella in Access poi da qui esportare in Outlook.
A me piace pi� importare da Outlook... comunque.
Mutatis mutandis da un'importazione da Outlook ho ottenuto questa
esportazione da Access. Funziona in Office 2007.
Se non funziona in Office 2003 fammelo sapere che stasera ci do un'occhiata.
==========================================
Private Sub Command29_Click()
Dim Kontact As Outlook.Items, k As Long
Dim db As DAO.Database, RS As DAO.Recordset
Dim TableName As String, MatchFound As Object
Set db = CurrentDb
Set RS = db.OpenRecordset("Anagrafe_Pazienti_Table", dbOpenDynaset)
Set Kontact = Session.GetDefaultFolder(olFolderContacts).Items
Do Until RS.EOF
    Set MatchFound = Kontact.Find("[FirstName]='" & 
FSR(RS![Nominativo_Paziente]) & "'")
    If Not MatchFound Is Nothing Then
        MatchFound.Delete
    End If
    With Kontact.Add
        .FirstName = RS![Nominativo_Paziente]
        '.LastName = ""
        '.CompanyName = ""
        .JobTitle = Nz(RS![Occupazione_Paziente], "")
        .HomeAddressStreet = Nz(RS![Indirizzo_Paziente], "")
        .HomeAddressCity = Nz(RS![CAP_Citta_Paziente], "")
        '.BusinessAddress = ""
        '.BusinessAddressCity = ""
        '.BusinessAddressState = ""
        '.BusinessAddressPostalCode = ""
        '.HomeAddressPostalCode = ""
        '.BusinessAddressCountry = ""
        '.HomeAddressCountry = ""
        .Email1Address = Nz(RS![eMail_Paziente], "")
        '.Email2Address = ""
        '.BusinessTelephoneNumber = ""
        '.BusinessFaxNumber = ""
        .CustomerID = Nz(RS![ID_Paziente], "")
        .HomeTelephoneNumber = Nz(RS![Telefono_Paziente], "")
        .BusinessTelephoneNumber = Nz(RS![Telefono _Paziente1], "")
        .MobileTelephoneNumber = Nz(RS![Telefono _Paziente2], "")
        .Save
    End With
    k = k + 1
    RS.MoveNext
Loop
MsgBox "Esportati / Aggiornati  n. " & k & "  Contatti"
End Sub
=============================================
Bruno
PS
Ti serve anche questa funzione:
==================================
Public Function FSR(SR As Variant) As Variant
'
' Formattazione Stringa di Ricerca.
' Bruno Campanini - 06-04-2005
'
' SR pu� essere Data, Stringa, Numero
' Se SR � Stringa pu� contenere qualunque carattere,
' inclusi Chr(34) = "   e   Chr(39) = '
'
' La sintassi sar� sempre ed unicamente:
' (Where) "[TableField]=" & FSR(SR)
'
' Occorre tener presente che SR potr� essere scritta
' nella sua forma normale se collocata in un campo di Form.
' Ad esempio:   Trattoria "L'Isola del Tesoro" con alloggio
'
' Qualora venga passata via codice la medesima dovr� essere
' formattata raddoppiando le eventuali virgolette Chr(34) = "
' contenute nel suo interno, indi racchiusa per intero
' entro DUE virgolette. Nel rispetto della convenzione VB.
' Cos� sar�:   "Trattoria ""L'Isola del Tesoro"" con alloggio"
'
SR = Replace(SR, Chr(34), """ & Chr(34) & """)
If IsDate(SR) Then
    SR = Chr(35) & Format(SR, "mm-dd-yy") & Chr(35)
ElseIf IsNumeric(SR) Then
Else
    SR = Chr(34) & SR & Chr(34)
End If
FSR = SR
End Function
======================================

> End Function
E' probabile (molto probabile) che tu abbia scambiato la mia richiesta 
creazione Account, come creazione di Rubrica... io non voglio creare una 
tubrica... voglio creare l'account di posta... quello che permette 
l'invio/ricezione di mail...  non la Rubrica (ecco perch� insistevi sulla 
tabella)
il mio account � pablitomf @ xxx .it ? bene, voglio impostarlo come account 
per Outlook creandolo da codice...
;) 

 
Guarda qui:
http://office.microsoft.com/en-us/ork2003/HA011402581033.aspx
potrebbe fare al caso tuo ?
-- 
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------

 wrote in message 
news:gvhsga$k9i$1...@tdi.cu.mi.it...

S�, non avevo capito.
Per quel che ne so io - e ne so veramente poca avendo appena scritto una 
decina di
routine in Outlook a complemento di un'applicazione Access fatta per un 
amico -
non dovrebbe essere possibile - in VBA - creare via codice un account 
e-Mail.
Dall'Help risulta che i dati importanti (address, tipo di account, etc)
sono solo read-only.
Provo a girare il quesito al NG specifico e se avr� notizie interessanti
ritorner� qui.
Bruno

 ritorner� qui.
Tnks


 potrebbe fare al caso tuo ?
i files rsp consentono di creare profili mime... e haim� non � la stessa
cosa...(o magari non ho capito io come usarli, perch� ci avevo gi�
provato)... mannaggia :)


 ha scritto nel messaggio 
news:gvleal$qrl$1...@news.newsland.it...

Ti andrebbe bene creare un codice che ti crea il file di registro?
Quello che ti scrivo di seguito non � altro che un file .reg che se fatto 
girare ti aggiunge in Outlook 2003 l'account con tutte le specifiche
Il tipo � POP3 se lo vuoi IMAP o con SSL fammi sapere
Ora ti basta creare da access un file con print...salvare come .reg ed il 
gioco � fatto
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account 
Manager\Accounts\in...@xxx.xx]
"DCEmail"=dword:00000002
"POP3 Server"="tuoserver"
"POP3 Port"=dword:0000006e
"SMTP Server"="tuoserver"
"SMTP Port"=dword:0000001a
"Connection Type"=dword:00000003
"POP3 User Name"="in...@xxx.xx"
"SMTP Display Name"="in...@xxx.xx"
"SMTP Email Address"="in...@xxx.xx"
"SMTP Reply To Email Address"="in...@xxx.xx"
"SMTP Organization Name"=""
"Account Name"="in...@xxx.xx"
"POP3 Timeout"=dword:0000003c
"SMTP Timeout"=dword:0000003c
"POP3 Secure Connection"=dword:00000000
"Leave Mail On Server"=dword:00000000
"POP3 Skip Account"=dword:00000000
"POP3 Prompt for Password"=dword:00000001
"SMTP User Name"="in...@xxx.xx"
"SMTP Use Sicily"=dword:00000002
"SMTP Secure Connection"=dword:00000000
"SMTP Split Messages"=dword:00000000
"SMTP Prompt for Password"=dword:00000000
Fammi sapere se ti va bene.
Ciao
-- 
Roberto da Parma 

 Il tipo � POP3 se lo vuoi IMAP o con SSL fammi sapere
� pop3 ma a prescindere dal codice che lo creerebbe, lanciando sto file.reg 
non accade nulla a liv. registro.
-- 
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
 

 ha scritto nel messaggio 
news:h00g3r$quh$1...@tdi.cu.mi.it...

In che senso a livello registro?
In teoria se hai compilato i campi correttamente dovresti ritrovarti 
l'account dentro outlook 2000...dovrebbe andar bene anche per 2003.
Non funziona?


> Non funziona?
gi�
