Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

inviare email con VBA ma non tramite Outlook

504 views
Skip to first unread message

BaroneBirra

unread,
May 27, 2004, 8:35:14 AM5/27/04
to
Esiste un modo semplice in VBA per inviare un'email
tramite LOTUS NOTES (qui al lavoro usiamo lotus anziché
Outlook)?

Per esempio, premendo l'ipotetico tasto INVIA DATI, parte
un nuovo messaggio (precompilato nell'indirizzo,
nell'oggetto e nel testo) ad un indirizzo email o almeno
si apre la schermata (in Lotus) "Nuovo Memo" già compilata
con indirizzo oggetto e testo e l'utente deve solo
confermare l'invio con l'apposita funzione di Lotus
Notes...

...se pode?

saoche

unread,
May 27, 2004, 1:22:26 PM5/27/04
to
Nella news:1363a01c443e7$0f170610$a001...@phx.gbl del 27 mag 2004
*BaroneBirra* ha scritto:

[...]

Diverso tempo fa ho fatto qualcosa del genere, ora non ricordo
esattamente cosa tutto si possa fare, ma è possibile.
Prima di darti altre notizie ho bisogno di fare alcune ricerche.
Ciao

--
...saoche[at]despammed[dot]com...

anon...@discussions.microsoft.com

unread,
May 28, 2004, 3:15:39 AM5/28/04
to
OK grazie mille, attendo fiducioso!

>-----Messaggio originale---

>.
>

saoche

unread,
May 28, 2004, 12:22:36 PM5/28/04
to
Nella news:1363a01c443e7$0f170610$a001...@phx.gbl del 27 mag 2004
*BaroneBirra* ha scritto:

> Esiste un modo semplice in VBA per inviare un'email

Riporto un link da cui prelevare una routine con tutte le istruzioni
necessarie per spedire e-mail.

http://www.experts-
exchange.com/Applications/Email/Lotus_Notes_Domino/Q_20782076.html

( url breve: http://snipurl.com/6qag )

Nella routine ci sono alcuni errori:
Recipient = "Notes Email User"pying it to Clipboard
deve essere cambiata in
Recipient = "Notes Email User" 'pying it to Clipboard

If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "",Attachment, _
"Attachment")
MailDoc.CREATERICHTEXTITEM ("Attachment")

l'ultima riga è da eliminare.

Questa routine, se metti nel campo recipient un indirizzo valido e
senza altre variazioni, lancia, se chiuso, Lotus Notes, copia negli
appunti l'intervallo A5:G19 e lo incolla nel corpo, inserisce
l'indirizzo del destinatario e l'oggetto, invia l'e-mail e ne archivia
una copia nella cartella inviati, tu devi solo inserire la password
all'apertura di Lotus Notes.

Con poche e semplici modifiche è possibile inserire degli allegati,
inserire due o più indirizzi, compilare il campo CopyTo, il campo
ReplyTo e altro.

Tiziano Marmiroli

unread,
May 31, 2004, 11:03:10 AM5/31/04
to
Il Thu, 27 May 2004 05:35:14 -0700, BaroneBirra ha scritto:

>Esiste un modo semplice in VBA per inviare un'email
>tramite LOTUS NOTES (qui al lavoro usiamo lotus anziché
>Outlook)?
>Per esempio, premendo l'ipotetico tasto INVIA DATI, parte
>un nuovo messaggio (precompilato nell'indirizzo,
>nell'oggetto e nel testo) ad un indirizzo email o almeno

>si apre la schermata (in Lotus) "Nuovo Memo" giā compilata

>con indirizzo oggetto e testo e l'utente deve solo
>confermare l'invio con l'apposita funzione di Lotus
>Notes...

Il sistema pių semplice, se Lotus Notes č il client di posta elettronica
predefinito, mi pare usare il metodo Hypelrink+mailto, vedi
http://www.google.it/groups?threadm=n09j10hvh7a4m6uqm...@4ax.com

Vedi anche
Lotus Notes Send EMail from VB or VBA
http://www.fabalou.com/VBandVBA/lotusnotesmail.asp


Facci sapere se e come hai risolto, grazie.

--
Tiziano Marmiroli
Microsoft MVP - Office

0 new messages