title: How to change email id in from field in outlook
body: <p>I need help to find  a way to change the e-mail with which email will be sent using VBA. Below is my current code and emails are being sent with my e-mail and i need to change it to group email id.</p>
  
  <pre><code>Dim olApp As Object
  Dim olMail As Object
  Dim olRecip As Object
  Dim olAtmt As Object
  Dim iRow As Long
  Dim Recip As String
  Dim Subject As String
  Dim Atmt As String
  Dim sMsgBody As String
  Dim strfrom As String
  
  
  
  iRow = 2
  
  Set olApp = CreateObject("Outlook.Application")
  
  Dim Sht As Worksheet
  Set Sht = ThisWorkbook.Worksheets("Sheet1")
  
  Do Until IsEmpty(Sht.Cells(iRow, 1))
  
  Recip = Sht.Cells(iRow, 1).Value
  Subject = Sht.Cells(iRow, 2).Value
  Atmt = Sht.Cells(iRow, 3).Value ' Attachment Path
  
  
  Set olMail = olApp.CreateItem(0)
  
  With olMail
  Set olRecip = .Recipients.Add(Recip)
      .Subject = Subject
      .body = sMsgBody
      .Display
      .
  Set olAtmt = .Attachments.Add(Atmt)
  
  olRecip.Resolve
  End With
  
  iRow = iRow + 1
  
  Loop
  
  Set olApp = Nothing
  </code></pre>