Email Sender VBA de Outlook

Email Sender VBA de Outlook es un programa de correo electrónico que envía mensajes de correo electrónico al comunicarse con Microsoft Outlook.

Explicación

Email Sender VBA de Outlook es un programa VBA Excel que se comunica con Microsoft Outlook. El programa envía plantillas de correo electrónico desde un lugar predefinido en tu ordenador, el archivo debe ser uno. Oft-archivo. También hay una función para bloquear ciertas direcciones de correo electrónico. El programa requiere la referencia "Microsoft Outlook xx.x Biblioteca de objetos" para ser activado.

Todo el programa de VBA Excel está disponible para su descarga en la parte inferior de esta página, diviértete!

Código

Sub Email_Sender_VBA_Microsoft_Outlook()

Dim NoMailList(1500)
Call LoadNoMailList(NoMailList)

WaitTimeSecondsBetweenMail = Range("c4").Value
PlaceToStoreEmailTemplate = Range("c5").Value

RowA = 0
While Range("A14").Offset(RowA, 0).Value <> tom
    ToAdress = Range("c14").Offset(RowA, 0).Value
    Subject = Range("d14").Offset(RowA, 0).Value
    FileName = Range("D14").Offset(RowA, 0).Value
    Call WaitTimeProgram(WaitTimeSecondsBetweenMail)
    Subject = Range("e14").Offset(RowA, 0).Value
    Call MatchAdressWithNoMailList(ToAdress, Funnen, NoMailList)
    If Funnen = False Then
        Call EmailSenderProgram(ToAdress, FileName, Subject, PlaceToStoreEmailTemplate)
    End If
    RowA = RowA + 1
Wend

End Sub

Sub EmailSenderProgram(ToAdress, FileName, Subject, PlaceToStoreEmailTemplate)

Dim VBAOutlookEmailSend As Object, vItem As Object, vStr As String
Set VBAOutlookEmailSend = CreateObject("Outlook.Application")
Dim temp2 As String
temp2 = FileName
Set vItem = VBAOutlookEmailSend.CreateItemFromTemplate(PlaceToStoreEmailTemplate + temp2 + ".oft")
vItem.Subject = Subject
Dim ToContact As Outlook.Recipient
Set ToContact = vItem.Recipients.Add(ToAdress)
vItem.ReadReceiptRequested = False
vItem.Send
Set vItem = Nothing
Set VBAOutlookEmailSend = Nothing

End Sub

Public Sub LoadNoMailList(NoMailList)

rad = 0
While Range("g14").Offset(rad, 0).Value <> tom
    NoMailList(rad + 1) = Range("g14").Offset(rad, 0).Value
    rad = rad + 1
Wend

End Sub

Public Sub MatchAdressWithNoMailList(ToAdress, Funnen, NoMailList)

Funnen = False
plats = 1
While NoMailList(plats) <> tom
    komp = InStr(ToAdress, NoMailList(plats))
    If komp <> 0 Then Funnen = True
    plats = plats + 1
Wend

End Sub

Public Sub WaitTimeProgram(sek)

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + sek
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

End Sub

Descargar archivo de Excel!Email_Sender_VBA_Outlook.xls

Comments (1)

Hola todos,
como o cual es el metodo para insertar un archivo de imagen e el cuerpo del correo
With OutMail
.To = "jcastro@vba.org.co"
.CC = ""
.BCC = ""
.Subject =
.Body = Insetar--> XXXXXX\Mis imágenes\TTO AI.png
.Send
End With

Porfavor si alguien lo ha hecho regaleme la solucion a camilofonseca@yahoo.com

Muchas Gracias de antemano

Add your comment

yvComment v.CommentVersion