Cómo implementar la función de envío automático de correo electrónico a través de Excel VBA y Outlook
Puede utilizar directamente la función API ShellExecute
Copie el siguiente código, péguelo directamente en su módulo de código y luego ejecute EmailSend para ver el efecto.
Opción explícita
Función de declaración privada ShellExecute Lib "shell32.dll" alias "ShellExecuteA" (ByVal hWnd es Long, ByVal lpOperation es String, ByVal lpFile es String, ByVal lpParameters es String , ByVal lpDirectory es String, ByVal nShowCmd es Long) es Long
Envío de subcorreo electrónico()
Receptor atenuado$, MyMail$, MySubject$.
receiver = "1234567@qq.com "
MySubject = "Pruébalo"
MyMail = " mailto: "amp; receptor y amplificador;" ? sujeto = " amp mi tema y. "ampBody = Nie Li: Esto es una prueba."
ShellExecute 0 amp, vbNullString, MyMail, vbNullString, vbNullString, 1
Conector final