ho risolto così:

strMsgHeader = sNameFrom & "(" & sEmailFrom & ")" & " ti ha spedito una cartolina virtuale!" & vbCrLf
strMsgHeader1 = "questo è l'indirizzo dove ritirarla : " & GetPathToPickupScript() & " copia questo codice " & IDToSend &" e inseriscilo nell'apposito spazio"
strMsgFooter = vbCrLf & vbCrLf & "Questa cartolina ti è stata spedita dal sito http://www.portaleionico.com"

grazie per il tuo interessamento