|
Login
  • Page:
  • 1

TOPIC: Aprire La Pagina di Posta Elettronica

Aprire La Pagina di Posta Elettronica 3 years 6 months ago #10342

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao a tutti , mi chiamo Maurizio , e il mio problema e Questo :
Su di un Foglio di Excel con office 2007 ; Ho inserito un tasto che a sua volta mi apre un userform .
Al suo interno ho inserito una TextBox , e lo scopo di tutto ciò : Sarebbe quello di poter inserire un indirizzo Email al suo interno ; poi con un click del Mouse essa dovrebbe poter aprire sia il Mio OutLook di posta elettronica.
E in altrenativa potermi anche aprire il Mio Thunderbird di ( Mozilla ) ; che è poi la posta elettronica che uso di più.
Tutto ciò secondo voi e possibile !
Grazie per tutto L'aiuto che sarete in grado di darmi in merito Saluti da A.Maurizio
(P.S) Allego File Di prova
Attachments:
The administrator has disabled public write access.

Aprire La Pagina di Posta Elettronica 3 years 5 months ago #10358

  • TuttoExcel
  • TuttoExcel's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 19
  • Thank you received: 3
  • Karma: 0
Ciao, per usare il client predefinito puoi usare questo sistema. In testa ad un modulo inserisci il seguente codice
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Poi crei una Sub per l'invio delle mail, costruisci la stringa come quella nell'esempio e la passi a ShellExecute come illustrato. Attenzione alla frasi con spazi, devono essere sostituiti con %20, in generale la stringa deve essere codificata come se fosse un URL
Sub mail()
    Msg = "mailto:prova@prova.it?cc=destinatariocc@prova.it&subject=oggetto&body=messaggio%20di%20prova"
    Call ShellExecute(0&, vbNullString, Msg, vbNullString, vbNullString, vbNormalFocus)
End Sub

Se invece vuoi usare Outlook indipendentemente dal fatto che sia o no il predefinito devi fare così:

In riferimenti aggiungi "Microsoft Outlook XX Object Library" in cui XX è la tua versione.

Poi crei una Sub come la seguente:
Sub InviaConOutlook
    Dim otl As Object
    Dim msg As Outlook.MailItem
    
    Set otl = CreateObject("Outlook.Application")
    Set msg = otl.CreateItem(0)
    
    With msg
        .To = "prova@prova.it"
        .CC = "destinatariocc@prova.it"
        .Subject = "Oggetto"
        .HTMLBody = "messaggio HTML"

        .Display
    End With
    
    Set msg = Nothing
    Set otl = Nothing
End Sub

Se non vuoi inviare un messaggio in formato HTML semplicemente sostituisci .HTMLBody con .Body

Spero di esserti stato utile :)
Amministratore di TuttoExcel
www.tuttoexcel.it
Last Edit: 3 years 5 months ago by TuttoExcel.
The administrator has disabled public write access.

Aprire La Pagina di Posta Elettronica 3 years 5 months ago #10361

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao TuttoExcel , Dire che Sei Stato Sublime e dire poco , ma in questo momento non trovo le parole per dire altro .
Comunque sia Grazie infinite per il tuo Aiuto Sinceri Saluti da A.Maurizio
The administrator has disabled public write access.

Aprire La Pagina di Posta Elettronica 3 years 5 months ago #10362

  • TuttoExcel
  • TuttoExcel's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 19
  • Thank you received: 3
  • Karma: 0
Maury1704 wrote:
Ciao TuttoExcel , Dire che Sei Stato Sublime e dire poco , ma in questo momento non trovo le parole per dire altro .
Comunque sia Grazie infinite per il tuo Aiuto Sinceri Saluti da A.Maurizio

Maurizio mi fai arrossire eheheh... grazie! :cheer:

Se hai bisogno di chiarimenti chiedi pure

Gianfranco
Amministratore di TuttoExcel
www.tuttoexcel.it
The administrator has disabled public write access.

Aprire La Pagina di Posta Elettronica 3 years 5 months ago #10363

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
No Grazie TuttoExcel , Sei Tutti noi , In quanto il codice che mi hai dato va benissimo , Tanto e vero che lo associato ad un database , che a sua volta fatta la ricerca del Soggetto interessato , Mi apre in Automatico un UserForm contutti i suoi dati , Per qui ho fatto in modo che quando si visualizza la sua Email , mi basta fare un doppio click con il Mouse per far Aprire il Foglio di posta elettronica e a Scelta anche quella di OutLook , Mentre allo stesso modo , posso far partire anche la telefonata in Automatico , direttamente dal PC.
per qui come vedi sono più che contento ; Grazie ; Grazie ; Grazie da A.Maurizio
The administrator has disabled public write access.

Aprire La Pagina di Posta Elettronica 3 years 5 months ago #10364

  • TuttoExcel
  • TuttoExcel's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 19
  • Thank you received: 3
  • Karma: 0
Maury1704 wrote:
No Grazie TuttoExcel , Sei Tutti noi , In quanto il codice che mi hai dato va benissimo , Tanto e vero che lo associato ad un database , che a sua volta fatta la ricerca del Soggetto interessato , Mi apre in Automatico un UserForm contutti i suoi dati , Per qui ho fatto in modo che quando si visualizza la sua Email , mi basta fare un doppio click con il Mouse per far Aprire il Foglio di posta elettronica e a Scelta anche quella di OutLook , Mentre allo stesso modo , posso far partire anche la telefonata in Automatico , direttamente dal PC.
per qui come vedi sono più che contento ; Grazie ; Grazie ; Grazie da A.Maurizio

Implementa anche una function per fare il caffé e poi lo rivendi e diventi ricco! :-D

Grazie ancora e buon lavoro
Amministratore di TuttoExcel
www.tuttoexcel.it
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.467 seconds