:local pppinter pppoe-out1
:local smtpServer smtp.qq.com
:local smtpUser QQ邮箱
:local smtpPass QQ密码
:local toUser 收件箱
:local title "公网IP更新"
:local smtpip [:resolve $smtpServer]
:local oldip
:foreach i in= [/ip firewall address-list find comment=$pppinter list=ddns] do={
:set oldip [/ip firewall address-list get $i address]
}
:local newip [/ip address get [/ip address find interface=$pppinter ] address]
:set newip [:pick $newip 0 [:find $newip "/"]]
:if ($newip != $oldip) do={
/tool e-mail send from=$smtpUser server=$smtpip user=$smtpUser password=$smtpPass to=$toUser subject=$title body=("新 的公网IP：" . $newip)
:foreach i in= [/ip firewall address-list find comment=$pppinter list=ddns] do={
/ip firewall address-list remove $i
}
/ip firewall address-list add comment=$pppinter list=ddns address=$newip
:log info message="邮件发送成功！！"
}