Risolto Inserire immagine in mail

niccky69

Utente junior
9 Novembre 2017
50
8
palermo
Excel 2010
0
Ciao a tutti,

ho già visto le discussioni
ma nessuna mi ha aiutato a risolvere il problema

Visual Basic:
      '***ADESSO SI DOVREBBE INSERIRE LA IMMAGINE DEL PORTALE NPI
        
        StrMsg = "<span><br><B>Immagine:</B><br>" & _
       "<img src='cid:immagine.jpg'" & "width='500' height='200'><br></span>"

'.Add (percorso & immagine), olByValue, 0
'.HTMLBody = StrMsg
        
        
   '         percorso = "C:\Users\corra\Desktop"
    '        immagine = "immagine.jpg"
     '  StrMsg = StrMsg & "<img src=immagine:" & "C:\Users\corra\Desktop\immagine.jpg" > ""
    ' StrMsg = StrMsg & "<<br> img src=immagine:" & "C:\Users\corra\Desktop\immagine.jpg" > "</br>"
     'StrMsg = StrMsg & "<br>  <img src="C:\Users\corra\Desktop\immagine.ipg" />"</br>"
        
        StrMsg = StrMsg & "<p><font face='Calibri' size='2'>Questi sono i miei contatti:</br>"
        StrMsg = StrMsg & "<p><font face='Calibri' size='2'>Telefono: </br>" & telefono_mittente
                
        StrMsg = StrMsg & "<p><font face='Calibri' size='2'>Mail: </br>" & indirizzo_mail_mittente


 End With
StrMsg = StrMsg & "</body>"
    StrMsg = StrMsg & "</html>"
With OutMail
        .To = indirizzo_mail_destinatario
        
        .CC = ""
        .BCC = ""
        .Subject = oggettoMail

        .HTMLBody = StrMsg
        .Display
        '.Send
    End With
    Set OutApp = Nothing
    Set OutMail = Nothing
L'immagine si trova su foglio Excel dal quale faccio partire le mail, ma non riesco ad inserirla nel corpo mail (neppure salvandola su disco C).
che soluzione posso adottare?
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
26.802
1.845
66
Napoli
2019 Pro Plus
708
Prova a guardare qui (è VBA per Excel)


In pratica il codice inserisce nel corpo della mail un intervallo formattato per cui se in detto intervallo vi è un’immagine dovrebbe (ma io non uso Outlook per cui non posso provare) anch’essa essere inserita nella mail.

È un’ipotesi.
 
Ultima modifica:

niccky69

Utente junior
9 Novembre 2017
50
8
palermo
Excel 2010
0
provato anche così

Visual Basic:
 StrMsg = StrMsg & "<body>"
            StrMsg = StrMsg & "   _    " & "<font face='Calibri' size='2'>Spett.le</br>"
Il risultato è:
_Spett.le

Praticamente come se il codice non riconoscesse gli spazi
 

niccky69

Utente junior
9 Novembre 2017
50
8
palermo
Excel 2010
0
no, qui chiedo come inserire immagini sul corpo mail
nell'altra come inserire spazi e ridurre l'interlinea e il grassetto sulle variabili
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
26.802
1.845
66
Napoli
2019 Pro Plus
708
E perchè hai inserito la discussione nella sezione di Outlook? Non stiamo parlando del VBA di Excel?
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
26.802
1.845
66
Napoli
2019 Pro Plus
708
Se la macro è in Excel è questo che comanda; Outlook è solo lo strumento che invia la mail.
 

Powerwin

VBA Expert
Expert
17 Marzo 2016
5.407
215
vicino a Milano
2019
142
Cioè fammi capire, io sto cercando una soluzione di là e di qua porta avanti questa discussione?
niccky69 @niccky69 io passo ti lascio a chi vorrà divertirsi in due forum a darti risposta Saluto_saluto
 

niccky69

Utente junior
9 Novembre 2017
50
8
palermo
Excel 2010
0
possibile cancellare sia questa che l'altra e faccio tutto ex novo?
alfrimpa @alfrimpa Powerwin @Powerwin
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
26.802
1.845
66
Napoli
2019 Pro Plus
708
Non può andare; LoadPicture si usa quando occorre caricare un'immagine in un controllo immagine inserito su un foglio o in una userform.

Tu prova ad utilizzare il codice di Ron de Bruin (Sub e Function RangeTOHTML) ti ripropongo il link

https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

senza preoccuparti per il momento dell'inserimento dell'immagine.

Se riesci poi penserai all'immagine.
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!