OUTLOOK and statement .from

[sal21]

Code: Select all

....
dim INVIATO_DA as string

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    INVIATO_DA="test"

    With Destwb
        
        On Error Resume Next
        
        With OutMail
            .From = INVIATO_DA
            'Debug.Print .From
            .To = DESTINATARIO
            'Debug.Print .To
            If CONF = "OK" Then
                .CC = _DESTINATARIO
            End If
            .BCC = ""
            .Subject = "AGGIORNATE AL " & DATA_DISP & " - AREA " & Me.AREA.Text
            .Body = TESTO_MESS
            .Attachments.Add TempFilePath1
            .Display
'.Send
            
        End With
        
        On Error GoTo 0
        
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    Set WS1 = Nothing
....

this is a part of my code to send email via vba code for excel
I have used from the first time the statement .from
... in effect i dont see intio the email the value from variable INVIATO_DA into the box "Inviato da:" (Send from in english)..
Why?

NOTE:
attached image with my scren shot of satndard email.

[HansV]

Outlook VBA doesn't let you change the From (Da) address for security reasons. You can set the SentOnBehalfOfName property; the message will show

Sent by Sal21 on behalf of ...

where ... is the name you used in the SentOnBehalfOfName property.

[sal21]

Outlook VBA doesn't let you change the From (Da) address for security reasons. You can set the SentOnBehalfOfName property; the message will show

Sent by Sal21 on behalf of ...

where ... is the name you used in the SentOnBehalfOfName property.

Only you!
This tips work fine!