Cómo enviar correos electrónicos con wpsvba

wpsvba puede ayudar a los usuarios a enviar correos electrónicos. El complemento vba es una función poderosa en wps. El complemento vba debe instalarse en WPS con anticipación antes de poder usarse. Podemos utilizar algo de programación de código para lograr la función de enviar correos electrónicos rápidamente.

Cómo enviar correos electrónicos con wpsvba:

1. Primero cree una dirección de correo electrónico en WPS. También puede usar un nombre diferente.

2. La dirección del destinatario comienza desde B2, la dirección CC comienza desde D2 y la dirección del destinatario BCC comienza desde F2.

3. G2 es el tema y H2 es el texto principal. Las columnas A, G y E se pueden completar con los nombres de los destinatarios correspondientes, pero no son obligatorias.

4. Código para enviar correo electrónico:

PublicSubSend Email()

DimOutlookAppAsOutlook.Application

DimnewMailAsOutlook.mailitem

DimmyAttachmentsAsOutlook.Attachments

DimnAsInteger, iAsInteger

DimwsAsWorksheet

OnErrorResumeNext

Setws=Worksheets("Dirección de correo electrónico")

n=ws.Range("B65536").End(xlUp).Row

address=Worksheets("Dirección de correo electrónico").Cells(2, 2)

Fori=2Ton

IfinThen

address=address";"Worksheets("Email Address").Cells(i 1, 2)

EndIf

Siguiente

'CC

n=ws.Range("D65536").End(xlUp).Row

addressCC= Hojas de trabajo( "Dirección de correo electrónico").Celdas(2, 4)

Fori=2Ton

IfinThen

direcciónCC=direcciónCC";"Hojas de trabajo("Dirección de correo electrónico ") .Cells(i 1, 4)

EndIf

Siguiente

'BCC

n=ws.Range("F65536 ") .End(xlUp).Row

addressBCC=Worksheets("Dirección de correo electrónico").Cells(2, 6)

Fori=2Ton

IfinThen

direcciónBCC=direcciónBCC";"Hojas de trabajo("Dirección de correo electrónico").Celdas(i 1, 6)

EndIf

Siguiente

SetOutlookApp =NewOutlook.Application

wbStr=ThisWorkbook.FullName'Especifica la cadena del nombre del libro que se enviará

SetnewMail=OutlookApp.CreateItem(olMailItem)'Crea un nuevo correo electrónico

WithnewMail

.Subject=Worksheets("Dirección de correo electrónico").Cells(2,7)'Establezca el asunto del correo electrónico

.Body=Worksheets("Dirección de correo electrónico") . Celdas(2, 8)'Establecer cuerpo del correo electrónico

'Enviar archivos adjuntos

SetmyAttachments=newMail.Attachments

myAttachments.AddwbStr,olByValue,1,"Libro de trabajo "

.To=dirección'destinatario

.CC=direcciónCC'cc

.BCC=direcciónBCC'bcc

.Enviar' Comience a enviar

EndWith

EndSub

5. Finalmente, agregue un botón en el menú de carga,

Enlace al módulo del programa escrito;

Luego hacemos clic en un botón para ejecutar el programa y enviar el correo electrónico al destinatario correspondiente;

Cuando necesitemos enviar un correo electrónico en el futuro, sólo necesitamos hacer clic en este botón. Eso es todo.