Hi, I wanted to know how to code a "Sent' on an excel column once an email has been successfully sent through VBA. Attached below is my code and only displays a msg sent dialog box whether it has been sent or not, I don't know how to go about it
ToVariable = ToVariable & ";" & sh.Range("A" & i).Value
CCVariable = CCVariable & ";" & sh.Range("B" & i).Value
'Name = Name & "," & sh.Range("C" & i).Value
msg.To = ToVariable
msg.cc = CCVariable
'msg.To = sh.Range("A" & i).Value
'msg.cc = sh.Range("B" & i).Value
msg.Subject = sh.Range("E" & 2).Value
msg.body = Name & sh.Range("G" & 2).Value
'If sh.Range("E" & i).Value <> "" Then
'msg.attachments.Add sh.Range("E" & i).Value
'End If
msg.display
Next i
MsgBox "Mail Sent"
ToVariable = ToVariable & ";" & sh.Range("A" & i).Value
CCVariable = CCVariable & ";" & sh.Range("B" & i).Value
'Name = Name & "," & sh.Range("C" & i).Value
msg.To = ToVariable
msg.cc = CCVariable
'msg.To = sh.Range("A" & i).Value
'msg.cc = sh.Range("B" & i).Value
msg.Subject = sh.Range("E" & 2).Value
msg.body = Name & sh.Range("G" & 2).Value
'If sh.Range("E" & i).Value <> "" Then
'msg.attachments.Add sh.Range("E" & i).Value
'End If
msg.display
Next i
MsgBox "Mail Sent"