當 ID 存儲在一個 excel 單元格中時，如何發送多個 email？

Question

I have written loop for 1 email id in 1 excel cell but I am unable to write loop when multiple email ids are store in 1 excel cell

這是一個示例

| code   |      email.ids      |        cc            |
|  1     |abc@abc.in;aab@abc.in|as@abc.in;asdb@abc.com|
|  2     |as@abc.in;asdb@abc.in|as@abc.in;asdb@abc.com|

代碼列將是“forloop”的值。

Answer 1

您可以使用stringr::str_split(df$email.ids[row], ";") %>% flatten_chr()按給定模式（此處：“;”）提取和拆分變量，假設有一定的一致性。

以下代碼將允許在嵌套循環中使用每個 email：

library(tidyverse)
for (row in 1:nrow(df)) {
    code_i <- df$code[row]
    message("code:", code_i)
    
    vec_email_id <- stringr::str_split(df$email.ids[row], ";") %>% flatten_chr()
    vec_cc <- stringr::str_split(df$email.ids[row], ";") %>% flatten_chr()
    vec_all_mails <- c(vec_email_id, vec_cc)
    
    for (email in vec_all_mails) {
        message("email: ", email)
        # do something with email
    }
}
#> code:1
#> email: abc@abc.in
#> email: aab@abc.in
#> email: abc@abc.in
#> email: aab@abc.in
#> code:2
#> email: as@abc.in
#> email: asdb@abc.in
#> email: as@abc.in
#> email: asdb@abc.in

數據

df <- read.delim(text = 
" code  |      email.ids      |        cc            
  1     |abc@abc.in;aab@abc.in|as@abc.in;asdb@abc.com
  2     |as@abc.in;asdb@abc.in|as@abc.in;asdb@abc.com
", header=TRUE, sep = "|")