Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Scelta account Outlook da VBA
374 views
Skip to first unread message
micpis
Oct 10, 2019, 2:12:23 PM10/10/19
to
Salve,
ho realizzato un DB, sfruttando il seguente codice preso in rete ed opportunamente adattato, mediante il quale invio in automatico delle mail con tanto di allegato.
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SendUsingAccount = OutApp.Session.Accounts.Item(2) ' Definisce l'accont da usare per l'invio
.To = EmailAddr
If Not IsNull(Forms!Principale!CcnX) Then .CC = Forms!Principale!CcnX Else .CC = ""
.BCC = ""
.Subject = Subx
.Body = Bodx
.Attachments.Add [Application].[CurrentProject].[Path] & "\" & Allx
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
' Sezione controllo Test
If Cc1 = False Then
SendKeys "%i"
Else
End If
L'unica cosa che non mi riesce di far funzionare è la scelta dell'account da utilizzare,infatti ogni volta che lancio il codice outlook seleziona sempre l'account predefinito sebbene nell'istruzione (.SendUsingAccount = OutApp.Session.Accounts.Item(x)) usi il valore 1 o 2.
Uso office 365.
In cosa sbaglio, qualcuno pò darmi una mano?
Grazie
ho realizzato un DB, sfruttando il seguente codice preso in rete ed opportunamente adattato, mediante il quale invio in automatico delle mail con tanto di allegato.
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SendUsingAccount = OutApp.Session.Accounts.Item(2) ' Definisce l'accont da usare per l'invio
.To = EmailAddr
If Not IsNull(Forms!Principale!CcnX) Then .CC = Forms!Principale!CcnX Else .CC = ""
.BCC = ""
.Subject = Subx
.Body = Bodx
.Attachments.Add [Application].[CurrentProject].[Path] & "\" & Allx
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
' Sezione controllo Test
If Cc1 = False Then
SendKeys "%i"
Else
End If
L'unica cosa che non mi riesce di far funzionare è la scelta dell'account da utilizzare,infatti ogni volta che lancio il codice outlook seleziona sempre l'account predefinito sebbene nell'istruzione (.SendUsingAccount = OutApp.Session.Accounts.Item(x)) usi il valore 1 o 2.
Uso office 365.
In cosa sbaglio, qualcuno pò darmi una mano?
Grazie
Bruno Campanini
Oct 10, 2019, 3:59:05 PM10/10/19
to
micpis has brought this to us :
Le differenze fra il mio codice e il tuo sono solo due:
Tu usi Set OutMail = OutApp.CreateItem(0)
io uso Set NewMail = olApp.CreateItem(olMailItem)
prova a sostrituire (0) con (olMailItem)
Tu spedisci un solo allegato
io quanti ne voglio.
Per il resto, ma potrei sbagliarmi, mi sembrano uguali.
Vedi un po' tu.
Bruno
Tu usi Set OutMail = OutApp.CreateItem(0)
io uso Set NewMail = olApp.CreateItem(olMailItem)
prova a sostrituire (0) con (olMailItem)
Tu spedisci un solo allegato
io quanti ne voglio.
Per il resto, ma potrei sbagliarmi, mi sembrano uguali.
Vedi un po' tu.
Bruno
@Alex
Oct 10, 2019, 5:04:02 PM10/10/19
to
Non può lui usa Latebinding e non riconosce le costanti di Libreria non essendo referenziata...
Tuttavia è ovviamente impossibile possa essere questo il problema... lui parla di una cosa che non ha molto a che vedere conl'istanza dell'oggetto a cui ti riferisci che funziona... quanto all'account di invio... qualche riga sotto...
@Alex
Tuttavia è ovviamente impossibile possa essere questo il problema... lui parla di una cosa che non ha molto a che vedere conl'istanza dell'oggetto a cui ti riferisci che funziona... quanto all'account di invio... qualche riga sotto...
@Alex
@Alex
Oct 10, 2019, 5:06:26 PM10/10/19
to
Sicuro non serva usare il SET per assegnare l'oggetto...?
SET .SendUsingAccount = OutApp.Session.Accounts.Item(2)
@Alex
SET .SendUsingAccount = OutApp.Session.Accounts.Item(2)
@Alex
micpis
Oct 11, 2019, 11:27:37 AM10/11/19
to
Ottimo :)
@Alex
Oct 11, 2019, 2:43:05 PM10/11/19
to
Bene.
@Alex
@Alex
0 new messages