こんにちは
PDFのファイル名に顧客番号をつけておいて、表から以下のDictionaryに出力して、これをもとに
ForEachで処理すればよいかと思います。
dict = dt.AsEnumerable.GroupBy(Function(r) r("メールアドレス").ToString).ToDictionary(Function(g) g.Key,Function(g) g.Select(Function(r) r("顧客番号").ToString).ToArray)
dict はDictionary<srting,string[]>