我为此找到了来自stackoverflow的php代码，但是它似乎不适用于我的表单。它应该获取提交结果，将其添加到变量中，然后将其放入pdf文件中，该文件附加到联系表格7发送的电子邮件中。
我已将以下代码添加到主题的functions.php文件中。 FPDF也已被提取并放置在我主题的文件夹中。当我在自己的网站上提交表格时，电子邮件会通过，但是没有PDF。如果有人能指出正确的方向，我将不胜感激。
ij <- cbind(seq_len(nrow(dat)), max.col(!is.na(dat), "last"))
v1 <- dat[ij]
i1 <- rowSums(!is.na(dat))
src <- na.omit(c(t(replace(dat, ij, NA))))
nn <- na.omit(c(t(dat)[-1,]))
data.frame(src ,nn, en = rep(v1, i1-1 ))
# src nn en
#1 A B C
#2 B C C
#3 P Q S
#4 Q R S
#5 R S S
#6 H I M
#7 I J M
#8 J K M
#9 K L M
#10 L M M