How do i get all the unique emails out of a column and add into an email

[frostworks]

As per the title, i would like to know how to call out all the unique emails in Col F and add into a string? the code has to count all unique visible emails dynamically so i suppose there will be the use of end(xlup) or end(xldown)?

In my vba code, i have dim EmailAdd as String.

 

[JEC]

I assumed that your data in column F started in F5

Sub jec()
 Dim dic As Object, it
 Set dic = CreateObject("scripting.dictionary")
 
 For Each it In Range("F5", Range("F" & Rows.Count).End(xlUp))
   dic(it.Value) = Empty
 Next
 
 With CreateObject("outlook.application").createitem(0)
   .to = Join(dic.keys, ";")
   .Subject = "test"
   .attachments.Add "..."
   .display
 End With
End Sub

 

[frostworks]

works, thanks!