Allegare file(s) ad una email attraverso link che punta outlook.

Question

Carissimi, attraverso il gestore posta elettronica Outlook, vorrei allegare uno o più file in maniera automatico con il link creato su un foglio di lavoro.

Mi spiego meglio:

1. Ho creato un link su di un foglio di una cartella;
2. Questo link apre outlook con una già determinata email (email del soggetto prescelto da una tabella);
3. Al soggetto prescelto, e quaindi all'email selezionata, vorrei allegarci file(s)!!!

I primi due punti sono stati risolti,

ma il terzo (allegare file in maniera automatica, attraverso file conosciuti e percorso path già predefinita, che non so come fare) !!!

Vi sarei grato di un costrutto (codice) su come arrivare a risolvere il problema.

Grazie ancora e un abbraccio a voi tutti.

Carlo Raffaele

Answer 1

Ciao Carlo Raffaele,

ricordi di questo esempio che mi inviasti (codice)?

Ebbene, avrei l'esigenza, sempre in automatico tramite codice di voler anche aggiungere:

"Richiedi conferma di lettura per il messaggio"

E' possibile?

Prova a sostituire l'istruzione:

        .Send   'or use .Display

con:

           .Send

           .ReadReceiptRequested = True

Nota, però, che mentre è possibile richiedere una ricevuta, non è possibile costringere il ricevente di inviare una ricevuta.

===

Regards,

Norman

Answer 2

Ciao Carlo,

Invece di utilizzare un collegamento ipertestuale, vorrei suggerire che utilizzi l'approccio suggerito da Ron de Bruin a:

       http://www.rondebruin.nl/win/s1/outlook/amail1.htm

Così, ad esempio, potresti adattare il primo esempio di codice di Ron de Buin, sostituendi i valore in grassetto con i tuoi valori:

'=========>>

Option Explicit

'--------->>

Public Sub Mail_workbook_Outlook_1()

    'Working in Excel 2000-2013

    'This example send the last saved version of the Activeworkbook

    'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm

    Dim OutApp As Object

    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    With OutMail

        .To ="******@debruin.nl"

        .CC = ""

        .BCC = ""

        .Subject = "This is the Subject line"

        .Body = "Hi there"

        .Attachments.Add ActiveWorkbook.FullName

        'You can add other files also like this

       .Attachments.Add ("C:\test.txt")

       .Attachments.Add ("C:\Pippo.xlsx")

        .Send   'or use .Display

    End With

    On Error GoTo 0

    Set OutMail = Nothing

    Set OutApp = Nothing

End Sub

'<=========

===

Regards,

Norman

Answer 3

ricordi di questo esempio che mi inviasti (codice)?

Ebbene, avrei l'esigenza, sempre in automatico tramite codice di voler anche aggiungere:

"Richiedi conferma di lettura per il messaggio"

E' possibile?

Grazie

Carlo Raffaele

Answer 4

Carissimo David, ecco il codice che utilizzo, tutto funziona alla perfezione, ma non riesco ad allegare "file/s", da una path conosciuta e da file/s conosciuti........

aspetto tue notizie

Un abbraccio

Carlo Raffaele

Private Sub CommandButton23_Click()

'==Estrazione Indirizzo Email===

IndirizzoPosta$ = Trim(UserForm10.TextBox7.Text)

If EsciProxFor! = 0 Then

   MsgBox "E m a i l   n o n   t r o v a t a!", 4144, "Gestione - Invio Email"

   Exit Sub

End If

'==Estrapolare Nome, Cognome e data di nascita==

With UserForm1

     CognMail$ = .TextBox2.Text

     NomeMail$ = .TextBox1.Text

     DataNasMail$ = .TextBox3.Text

     DataClienteMail$ = Trim(.Label24.Caption)

     DataRaccMail$ = Trim(DataProv$)

End With

On Error GoTo Internet2NonTrovato

Worksheets(1).Range("R1").Select

Lnk$ = IndirizzoPosta$

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _

Lnk$, TextToDisplay:=Lnk$

StringaMailto$ = "mailto:" & IndirizzoPosta$ & "?subject=GMS%20Invito%20%20-%20%20" _

& CognMail$ & "%20" & NomeMail$ & "%20%20%20" & DataNasMail$

Selection.Hyperlinks(1).Address = StringaMailto$

Worksheets(1).Range("R1").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

AllowFiltering:=True

With Worksheets(1)

     .Range("S1").Select

     Selection.Copy

     .Range("R1").Select

     ActiveSheet.Paste

End With

UserForm10.TextBox5.Text = Provv$

Exit Sub

Answer 5

Ciao Carlo,

Possiamo vedere il codice che stai utlizzando per creare l'email?

===

Regards,

Norman