Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Cambiare carattere MACRO per INVIO MAIL

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Cambiare carattere MACRO per INVIO MAIL

Postdi scanacc » 22/01/16 17:10

Carissimi, ho una macro con cui invio mail tramite Microsoft Office 365
Codice: Seleziona tutto
Sub PROVAMAIL2007()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Const LF = vbCrLf
'  (a)
PERCORSOFILEIMMAGINE = """C:\io.JPG"""

Set OutApp = CreateObject("Outlook.Application")
Outfile = Cells(Range("G4").Value, "O").Value

For I = 5 To Range("H100").End(xlUp).Row
    BDT = BDT & Cells(I, "H") & LF
Next I

''  (b)
Nominat = Cells(Range("G4").Value, "A").Value
EmailAddr = Cells(Range("G4").Value, "B").Value
Subj = Range("H4").Value
'
EmailAddr1 = Cells(Range("G4").Value, "C").Value
Subj = Range("H4").Value
EmailAddr2 = Cells(Range("G4").Value, "D").Value
Subj = Range("H4").Value
'
IMMAGINE = "<BR>" & "<img src=" & PERCORSOFILEIMMAGINE & "/></b><br>"
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = EmailAddr1 & ";" & EmailAddr2
.BCC = ""
.Subject = Subj
If Cells(Range("G4").Value, "O").Value <> "" Then
.Attachments.Add Outfile
End If
.htmlBody = BDT & IMMAGINE
'.send
.Display 'or use .send
'.send
End With
'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing
End Sub

Funziona tutto bene se non per il fatto che non riesco a cambiare i l carattere predefinito nella mail. In poche parole ho impostato il carattere desiderato (Segoe UI 11) come suggerito qui https://support.office.com/it-it/article/Impostazione-del-tipo-di-carattere-o-del-colore-del-testo-per-i-messaggi-da-inviare-83425b7b-4acc-4e94-8c04-fa1e31790318 ma quando invio con excel mi invia con Times New Roman 12. Potreste aiutarmi per favore?
PS Se invece invio tramite Microsoft Outlook funziona tutto bene nel senso che i caratteri sono quelli da me impostati
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: Cambiare carattere MACRO per INVIO MAIL

Postdi scanacc » 22/01/16 17:47

Ho tolto a html a .htmlBody e la formattazione è precisa :) :) :) ma...... non mi allega la firma in fondo che ho come file immagine ....al suo posto mi da <BR><img src="C:\io.JPG"/></b><br> :cry: :cry: :cry: ...e non so più come mettere le parole in grassetto, sottolinearle etc etc ....
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Re: Cambiare carattere MACRO per INVIO MAIL

Postdi Anthony47 » 23/01/16 21:56

Le immagini ogni lettore di mail le visualizza come gli piace, quindi mettere la firma come immagine secondo me e' azzardato.

Se invii delle mail in formato html allora il formato lo dovrai impostare con gli attributi html, compreso il font del carattere; tenendo presente che se quel font non e' presente sul pc del destinatario lui lo visualizzera' con il fonto che Windows ritiene piu' simile.

Quindi, rimanendo col testo in formato html (che ti permette di taggare testi come grassetto, sottolineato, etc) devi inserire prima del testo il tag di font, che credo sara' del tipo
Codice: Seleziona tutto
<font face="Segoe UI">

Quanto alla dimensione del carattere, non credo che l'html ti consenta di impostare dimensioni fisse, ma solo "relative"; puoi cercare su google con la stringa "tag font dimensione pagina web" (senza virgolette) per avere i chiarimenti su come l'html gestisce le dimensioni carattere. Ad esempio questi tag imposteranno una dimensione "piu' piccola del normale":
Codice: Seleziona tutto
<font face="Segoe UI" size="2">

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Cambiare carattere MACRO per INVIO MAIL

Postdi scanacc » 24/01/16 14:14

Grazie Anthony!!!
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Re: Cambiare carattere MACRO per INVIO MAIL

Postdi scanacc » 25/01/16 23:55

Una domanda Anthony...ma nel caso non tornassi col testo in formato html non potrei usare grassetto, sottolineato, etc?
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Re: Cambiare carattere MACRO per INVIO MAIL

Postdi Anthony47 » 26/01/16 13:56

Per quello che ne so, il formato Text non consente la formattazione del testo.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Cambiare carattere MACRO per INVIO MAIL":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti