Trying to use a Server connection string on my current list.
Sub SendByOne()
Dim c As Range
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim i As Integer
On Error Resume Next
For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Cells
picName = c.Offset(0, 2).Value
picName2 = c.Offset(0, 3).Value
picname3 = c.Offset(0, 6).Value
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
With OutLookMailItem
'.SentOnBehalfOfName = "gmat"
.To = c.Offset(0, 4).Value
.Subject = c.Offset(0, 1).Value
.attachments.Add picName
.attachments.Add picName2
.attachments.Add picname3
.htmlbody = " "
.htmlbody = .htmlbody & c.Offset(0, 5).Value & "</b>"
.htmlbody = .htmlbody & "<br> " & c.Offset(0, 7).Value
.htmlbody = .htmlbody & "<br><b><font size='3'>" & c.Offset(0, 8).Value & "</font>"
.htmlbody = .htmlbody & "<br> <br> <br> <br> </b> Dear Valued Customer"
'Introduction
.htmlbody = .htmlbody & "<br> <br> text"
.htmlbody = .htmlbody & "<br> <br> *text."
.htmlbody = .htmlbody & "<br> <br> text request."
' .HTmlbody = .HTmlbody & "<br>If you would like to embed my latest video you can find it here"
' .HTmlbody = .HTmlbody & "<br> Check it out <a href = ""URL HERE""> HERE </a>"
.display 'to display first
'.Send 'to send it in background
End With
Next c
End Sub
Sub SendByOne()
Dim c As Range
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim i As Integer
On Error Resume Next
For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Cells
picName = c.Offset(0, 2).Value
picName2 = c.Offset(0, 3).Value
picname3 = c.Offset(0, 6).Value
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
With OutLookMailItem
'.SentOnBehalfOfName = "gmat"
.To = c.Offset(0, 4).Value
.Subject = c.Offset(0, 1).Value
.attachments.Add picName
.attachments.Add picName2
.attachments.Add picname3
.htmlbody = " "
.htmlbody = .htmlbody & c.Offset(0, 5).Value & "</b>"
.htmlbody = .htmlbody & "<br> " & c.Offset(0, 7).Value
.htmlbody = .htmlbody & "<br><b><font size='3'>" & c.Offset(0, 8).Value & "</font>"
.htmlbody = .htmlbody & "<br> <br> <br> <br> </b> Dear Valued Customer"
'Introduction
.htmlbody = .htmlbody & "<br> <br> text"
.htmlbody = .htmlbody & "<br> <br> *text."
.htmlbody = .htmlbody & "<br> <br> text request."
' .HTmlbody = .HTmlbody & "<br>If you would like to embed my latest video you can find it here"
' .HTmlbody = .HTmlbody & "<br> Check it out <a href = ""URL HERE""> HERE </a>"
.display 'to display first
'.Send 'to send it in background
End With
Next c
End Sub