';
pc-facile
Valutazione 4.87/ 5 (100.00%) 5838 voti




Login
Iscriviti
Cerca
Topic senza risposta
Topic attivi
Indice
Assistenza Software
Applicazioni Office Windows

Outlook invio posta con excel

Rispondi al post

Pagina 1 di 1


Outlook invio posta con excel
scanacc @ 27/06/18 13:48

Ciao boys, ho una macro che da un FILE Excel mi genera le mail da inviare
Codice: Seleziona tutto
Sub PROVAMAIL2007()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Const LF = vbCrLf
'  (a)
PERCORSOFILEIMMAGINE = """C:\io.JPG"""

Set OutApp = CreateObject("Outlook.Application")
Outfile = Cells(Range("G4").Value, "O").Value

For I = 5 To Range("H100").End(xlUp).Row
    BDT = BDT & Cells(I, "H") & LF
Next I

''  (b)
Nominat = Cells(Range("G4").Value, "A").Value
EmailAddr = Cells(Range("G4").Value, "B").Value
Subj = Range("H4").Value
'
EmailAddr1 = Cells(Range("G4").Value, "C").Value
Subj = Range("H4").Value
EmailAddr2 = Cells(Range("G4").Value, "D").Value
Subj = Range("H4").Value
'
IMMAGINE = "<BR>" & "<img src=" & PERCORSOFILEIMMAGINE & "/></b><br>"
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = EmailAddr1 & ";" & EmailAddr2
.BCC = ""
.Subject = Subj
If Cells(Range("G4").Value, "O").Value <> "" Then
.Attachments.Add Outfile
End If
.htmlBody = BDT & IMMAGINE
'.send
.Display 'or use .send
'.send
End With
'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing
End Sub


Anzichè generare la mail da Posta di Outlook come potrei far generare una mail di "Nuova Riunione" sempre da Outlook ma dal CALENDARIO?
Grazie per l'attenzione

Re: Outlook invio posta con excel
Anthony47 @ 29/06/18 00:09

Non conosco il Calendario di Outlook, quindi non sono in grado di essere preciso; pero' secondo me tu devi inviare una mail di invito per un meeting, per cui valgono le seguenti considerazioni:
La tua istruzione OutApp.CreateItem(0) crea un "Mail Item"; se vuoi creare invece un Appointment Item devi usare Set OutMail = OutApp.CreateItem(1)

Comunque trovi nell'help online di Excel un esempio con il codice completo; vedi https://msdn.microsoft.com/en-us/vba/ou ... od-outlook

Siccome tu non vorrai impostare il riferimento alla libreria vba di Outlook ma lavori con CreateObject("Outlook.Application") allora ricorda che devi usare le enumerazioni di Outlook, e non l'equivalente nome della costante, e poi le variabili che fanno riferimento a oggetti Outlook devono essere dichiarati come Object (e non, ad esempio, Recipient).
Per CreateItem, le enumerazioni che ti serve conoscere sono 0=MailItem e 1=AppointmentItem
Altre enumerazioni usate nel codice:
1=olRequired
2=olOptional
3=olResource
1=olMeeting

Ciao

Re: Outlook invio posta con excel
scanacc @ 05/07/18 19:44

Ci lavorerò anche se mi sembra per me troppo difficile.
Un'altra domanda:
Se volessi (sempre con il codice iniziale) inviare le mail generate con flag su "Richiedi conferma di Lettura per il messaggio"?
Grazie per l'attenzione

Re: Outlook invio posta con excel
Anthony47 @ 06/07/18 00:05

Per la richiesta di ricevuta, devi aggiungere
Codice: Seleziona tutto
With OutMail
.ReadReceiptRequested = True           '<<< QUESTA, QUI

Ciao

Re: Outlook invio posta con excel
scanacc @ 06/07/18 23:52

Perfect!


Rispondi al post

Pagina 1 di 1

Torna a Applicazioni Office Windows


Glossario | Blog | Cerca
© 2000-2018 pc-facile.com