HI,

I tried to send some PDF with contact list in Excel. I found a code on internet and try to change it a little bit. I'm new with VBA and I'm learning by myself
I would like to change the Email of the person sending the Email.
I'd like The Email address is based on a specific cell. To put a specific Email address so It'll be accessible for users with no understanding at all with VBA.

I tried to add : outlookmailitem.From = [COLOR=var(--black-750)]Dir[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--black-750)]Range[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"K9"[/COLOR][COLOR=var(--black-750)]).[/COLOR][COLOR=var(--black-750)]Value[/COLOR][COLOR=var(--black-750)]) in the code but it doesn't work...
Everything is working Is a I delete this line but I'm the sender and I don't want that.

[/COLOR]Can you help me please.
Thanks a lot

Sub Send_email_fromexcel()
Dim Email_Address_1 As String
Dim Subject As String
Dim Email_Address_2 As String
Dim CC As String
Dim message As String
Dim filename As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim Path As String
Dim lastrow As Integer
Dim Attachment As String
Dim x As Integer


x = 2


Do While Sheet1.Cells(x, 1) <> ""

Set outlookapp = CreateObject("Outlook.Application")
Set outlookmailitem = outlookapp.CreateItem(0)
Set myAttachments = outlookmailitem.Attachments
Path = "PATH"
Email_Address_1 = Sheet1.Cells(x, 1)
Email_Address_2 = Sheet1.Cells(x, 2)
CC = Sheet1.Cells(x, 3)
Subject = Sheet1.Cells(x, 4)
filename = Sheet1.Cells(x, 6)
Attachment = Path + filename



outlookmailitem.From = [COLOR=var(--black-750)]Dir[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--black-750)]Range[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"K9"[/COLOR][COLOR=var(--black-750)]).[/COLOR][COLOR=var(--black-750)]Value[/COLOR][COLOR=var(--black-750)])[/COLOR]
outlookmailitem.To = Email_Address_1
outlookmailitem.CC = Email_Address_2
outlookmailitem.BCC = CC
outlookmailitem.Subject = Subject
outlookmailitem.Body = "TEXT"


myAttachments.Add (Attachment)
outlookmailitem.Display
outlookmailitem.send

lastrow = lastrow + 1
Email_Address_1 = ""
x = x + 1


Loop




Set outlookapp = Nothing
Set outlookmailitem = Nothing




MsgBox "All the documents have been sent"


End Sub